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EDITORIALE 


Il primo numero di LIST usci¬ 
to nello scorso Gennaio fece 
scalpore nel mondo del l'edi¬ 
toria e dei mass-media in ge¬ 
nere, specializzati e non, del 
settore dell'Informatica. 

Come il lettore ricorderà, in¬ 
dicammo nell’editoriale del n. 
2 di LIST, che la rivista, 
nell’ambito e nei limiti dei 
suoi programmi, si accingeva 
ad un'opera impegnativa, 
contribuire cioè alla nuova al¬ 
fabetizzazione di massa di 
una società che già vive nella 
dimensione economica e so¬ 
ciale degli anni duemila. 

Al momento di tirare le som¬ 
me dei primi dodici mesi di vi¬ 
ta della rivista, riteniamo che 
LIST, con le sue scelte, abbia 
imbroccato la strada giusta e 
che l’obiettivo che si è propo¬ 
sto potrà essere senza dub¬ 
bio perseguito negli anni a ve¬ 
nire. 

Infatti per scelte editoriali 
conseguenti anche ad una at¬ 
tenta valutazione dei reali li¬ 
velli di conoscenza dell’infor¬ 
matica da parte della media 
dei lettori italiani, LIST ha de¬ 
ciso di cominciare dall’ABC 
di questa scienza con un lin¬ 
guaggio che fosse compren¬ 
sibile anche da parte di chi 
avesse frequentato solo le 
scuole dell’obbligo. 

È stato il primo passo. E le 
300.000 copie della rivista dif¬ 
fuse fino ad oggi confermano 
che si è trattato di un passo 
giusto. 

Certo non ci si può adagiare 
sugli allori dei primi successi 
e bisogna andare avanti altri¬ 
menti rischieremmo di non 
mantenere fede al l’impegno 
preso. 
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UN ANNO 

RICCO 

DI 

ESPERIENZE 


I nostri lettori-scolari (ci si 
passi il termine) devono pro¬ 
gredire nel campo della cono¬ 
scenza dell'Informatica. 

In quest’ottica, dunque, va in¬ 
quadrato, per Tanno prossi¬ 
mo, il piano di potenziamento 
delle rubriche di LIST messo 
a punto di comune accordo 
dall’editore e dalla redazione. 
Anche se non mancheranno 
lettori che per la prima volta 
si affacciano sul mondo dei 
computers e dei quali List 
continuerà ad occuparsi con 
rinnovato impegno, la rivista 
dovrà pure accompagnare 
verso un più alto livello di co¬ 
noscenza la gran massa dei 
lettori che l’ha seguita fin ad 
ora in questa avvincente 
esperienza. 

In definitva, i nostri lettori do¬ 
vranno, a poco a poco, impa¬ 
rare a padroneggiare e gesti¬ 
re il computer che diverrà 
sempre di più lo strumento di 
lavoro abituale con il quale 
continuamente confrontarsi. 
Per questo, fin dal prossimo 


numero di List, senza nulla 
togliere allo spazio riservato 
ai giochi, grossi esperti della 
materia a livello universitario, 
apriranno un dialogo con i let¬ 
tori affinché si eviti,, fin dove 
possibile, il pericolo che nel 
nostro paese i grandi cambia¬ 
menti verificatisi in seguito 
allo sviluppo impensato dei 
mezzi di comunicazione non 
vengano correttamente e pie¬ 
namente gestiti per un com¬ 
plessivo ritardo della società 
italiana. 

Poiché l’impegno in tal senso 
è senza precedenti ed investe 
la volontà delle forze politi¬ 
che che governano il Paese di 
marciare sulla strada dell'in¬ 
formatizzazione della so¬ 
cietà, ribadiamo il convinci¬ 
mento che, un’operazione di 
tale portata deve cominciare 
sui banchi di scuola. 

Perciò non ci stancheremo 
mai di invitare gli organi pre¬ 
posti alla gestione della Pub¬ 
blica Istruzione ad adeguare 
le strutture della scuola alle 
nuove esigenze della produ¬ 
zione. 

Per quel tanto che ci impegna 
direttamente, nel quadro di 
un complessivo potenzia¬ 
mento della rivista, conti¬ 
nuerà ad essere oggetto di 
particolare attenzione il dialo¬ 
go che List ha instaurato con 
gli studenti attraverso la ru¬ 
brica “Scuola e Computer” e 
le altre iniziative che verranno 
prese a tal fine. 

Siamo certi che, cosi facen¬ 
do, non potrà che crescere il 
consenso dei lettori nei con¬ 
fronti del nostro impegno. 

Fausto Carmignani 
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LISI POSTA 




Vie ASSEMBLER 


Possiedo un VIC-20 e mi piacerebbe 
iniziare a studiare la programmazione 
in Linguaggio Macchina. Potreste dar¬ 
mi qualche consiglio su come iniziare? 
È necessario avere un Assembler o c’è 
bisogno di qualche altra cosa? Potre¬ 
ste indicarmi quale Assembler acqui¬ 
stare?. 

Alberto Fava 
Torino 

La prima cosa da fare, è innanzitutto ac¬ 
quistare un libro che tratti l'argomento, 
cosa che non dovrebbe essere difficile se 
ti rivolgi ad una libreria specializzata. Ge¬ 
neralmente alcuni di questi libri compren¬ 
dono anche un Assembler. 

Lo stesso catalogo COMMODORE, inol¬ 
tre. comprende fra i suoi titoli una cartrid- 
ge in assembler, la VIC- MON. 

COMPUTER.TELEX! 

....mi piacerebbe che le istruzioni dei 
miei programmi venissero visualizzate 
come se si trattasse del messaggio di 
una telescrivente . 

Come ottenere tale effetto suo mio 
COMMODORE? 

Francesco Di Monte 
Pesaro 

Per far stampare al computer le lettere di 
una o più parole individualmente, digitare: 
10AS= "Messaggio GOSUB 1000 

999 END 

1000 FOR A=1 LEN (A$): PRINT MID$ 
(AS.A. 1);: 

FOR B= ITO 40: NEXTB. A: RETURN 
Per modificare la velocità della stampa 
cambiare il valore di B nel loop FOR.... 
NEXT 

ASPETTANDO 
UN.... INPUT 

Ho notato che nella maggior parte dei 
programmi quando c’è bisogno di una 
pausa per dare a chi è davanti allo 
schermo la possibilità di leggere ad es. 
delle istruzioni, viene usata l'istruzione 
GET.... ecc.. 

Anch’io, fino ad oggi, ho sempre usato 
questa “formula” nei miei programmi, 
ma leggendo il manuale del mio COM¬ 
MODORE ho visto che esiste l’istruzio¬ 
ne WAIT che, se ho ben capito, serve ad 
“interrompere” il programma in esecu¬ 
zione. 

Mi domando dunque se non sarebbe 
possibile usare tale istruzione per otte¬ 
nere le pause indicate... 

Mario Maddoni 
Grosseto 

In effetti sarebbe molto meglio usare 
l'istruzione WAIT per “bloccare " il com¬ 
puter finché lo SHIFT non viene premuto. 
Ecco l'istruzione completa 
WAIT653.1 
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CBM 64 DOS 


....due domande sul DOS 5.1: vorrei sa¬ 
pere quale parte della memoria del 
computer occupa e se è possibile cam¬ 
biarne i comandi. 

Roberto Spagnolo 
Foggia 

Il DOS 5.1 occupa la parte di memoria che 
va dall'indirizzo esadecimale $CCOOall'in¬ 
dirizzo $CF58. I comandi del DOS posso¬ 
no essere cambiati solo se se ne conosce 
il codice iniziale e mediante un Assem¬ 
bler. 


COLORI COMMODORE 


Possiedo da qualche mese un VIC-20 e 
sto imparando, anche se con qualche 
difficoltà, a programmare in BASIC. 
Progredendo, iniziano però a sorgere i 
primi dubbi: ad esempio ho notato che 
vi sono due modi per cambiare il colore 
dei caratteri. 

Vi sarei grata se poteste fornirmi alcu¬ 
ne delucidazioni in merito. 

Susanna Russo 
Roma 

Sia sul VIC-20 che sul CBM 64, la locazio¬ 
ne di memoria 646 controlla il codice- 
colore: alterandone il contenuto è. dun¬ 
que possibile cambiare il colore del carat¬ 
tere da visualizzare. 

In alcuni casi può risultare più semplice 
effettuare un cambiamento di colore inse¬ 
rendo un comando del tipo CTRL .; in al¬ 

tri è più conveniente agire direttamente 
sulla locazione, come, ad esempio, quan¬ 
do si vogliono ottenere dei colori casuali. 
Es.: 

100 POKE 646. RND (0)x8 
110 PRINT "MULTICOLOR" 

120 FOR 1=1 TO 200: NEXT 
130 GOTO 100 

La linea 100 di questo piccolo programma 
determina a caso il colore del carattere. 

I possessori del CBM 64 possono sostitui¬ 
re T8 con il 16 in modo da far comprende¬ 
re nella scelta anche gli otto colori aggiun¬ 
tivi che il 64 possiede. 

I posessori del VIC-20. operando la stessa 
modifica. “vedranno" un qualcosa di de¬ 
cisamente inaspettato! 


PROGRAMMI 

UNIVERSALI 


Possiedo un VIC-20 in configurazione 
base e, nonostante la poca memoria a 
disposizione, sono riuscito a creare dei 
programmi discreti. 

Sarei intenzionato ad acquistare 
un’espansione di memoria in modo da 
ampliare le possibilità del mio compu¬ 
ter. Tuttavia mi è stato detto che que¬ 
ste espansioni cambiano la mappa di 
memoria della macchina e che difficil¬ 
mente un programma che girava in con¬ 
figurazione base girerà altrettanto be¬ 
ne con, ad esempio, 3K di memoria. 

Ciò significa che dovrò completamen¬ 
te “riscrivere” i mei programmi per ria¬ 
dattarli al “nuovo" computer?. 

Alfredo Berle 
Ravenna 

Ciò che ti è stato detto, caro Alfredo, è ve¬ 
ro: le espansioni cambiano la mappa della 
memoria procurando Tincoveniente da te 
descritto. 

Ad ogni modo, onde evitare di dover “ri¬ 
scrivere . come tu dici i programmi che 
già possiedi, basta inserire la seguente 
istruzione: 

S = 4x(PEEK(36866)AND 

128) + 64 x (PEEK(36869)AND 112): 

C = 37888 -f 4x(PEEK(36866)AND 128) 
dove la variabile S indica la locazione ini¬ 
ziale della memoria schermo e la variabile 
C la locazione iniziale della memoria colo¬ 
re. 

PORZIONI 
DI. STRINGHE! 

Possiedo uno Spectrum 48K e mi pia¬ 
cerebbe poter convertire i programmi 
di un mio amico che possiede invece 
un COMMODORE 64. 

Uno dei programmi che mi piacerebbe 
adattare al mio computer contiene le 
funzioni MID$, LEFT$ e RIGTHS non 
contemplate dal BASIC Sinclair. 

È possibile “simularle” mediante la 
funzione DEF FN?. 

Gian Luca Naddeo 
Napoli 

Le funzioni MID$, LEFTS e RIGHTS sono 
proprie del BASIC Microsoft e servono per 
ottenere determinate ‘porzioni' di una 
stringa. 

Per ‘simulare' sullo Spectrum. caro Gian 
Luca, non è possibile usare la funzione 
DEFFN. 

Quando si vuole convertire un program¬ 
ma, è molto importante capire a cosa ser¬ 
va un determinato comando per poterlo 
sostituire con l'equivalente del proprio 
computer. 

Nel nostro caso, la funzione MID$ è usata 
per estrarre parte di una stringa: MID$ 
(A$. 3.2) estrae da A$ due caratteri par¬ 
tendo dal terzo. L'equivalente Sinclair è: 
A$(3 T05). 
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LEFT$ estrae parte di una stringa parten¬ 
do dall'estremo sinistro, ciò significa che 
la istruzione LEFT$ (A$, 2) estrae da A$ i 
primi due caratteri. L'equivalente Sinclair 
è:A$(T02). 

L'istruzione RIGHT$ estrae invece parte 
di una stringa partendo dall'estremo de¬ 
stro. 

L’equivalente Sinclair della istruzione 
RIGHT$ (A$, 2) sarà: A$(LEN (A$)- 2 TO). 


VIC-SCROLLING 


Per “abbellire” la presentazione dei 
miei piccoli programmi, mi piacerebbe 
riuscire ad ottenere l’effetto SCROLL. 
Potreste dirmi come fare?. 

Jacopo Valzecchi 
Milano 

Inserendo la linea di seguito pubblicata, si 
ottiene lo SCROLL completo dello scher¬ 
mo verso il basso: 

100 FOR 1 = 25 TO 130: POKE 36881,1: 
NEXT 

La linea che segue, invece, fa tornare lo 
SCROLL indietro: 

200 FOR 1=130 TO 25 STEP -1: POKE 
36881,1: NEXT 

SINTETIZZATORE 
PER VIC 20 

Ho da poco acquistato un VIC 20 ed ho 
sentito parlare di un sintetizzatore di 
voce collegabile al mio computer. 

Esiste davvero? Qual è il suo prezzo? 

Fabrizio Ganassi 
Modena 

Il sintetizzatore vocale esiste... 

Si tratta di una cartuccia che inserita nello 
SLOT posteriore del VIC e collegata al mo¬ 
dulatore AudioNideo, riesce a "far parla¬ 
re", se questo è il termine adatto, il VIC 
20 . 

Dovrebbe essere normalmente distribuito 
in Italia dalla Commodore ed il suo N ° di 
identificazione è ‘VIC 1214'; il prezzo do¬ 
vrebbe aggirarsi intorno alle 180.000 lire. 
Conosciamo già tale "meraviglia": ad un 
ascolto superficiale può sembrare di sen¬ 
tire solo degli strani suoni metallici ed 
inarticolati, ma perdendo un po' di tempo 
nella programmazione, è possibile udire 
distintamente molte parole anche in lin¬ 
gua italiana. 

Invio un programma che modifica quel¬ 
lo pubblicato su LIST N° 4, pag. 68, per 

romei. 

Spero possa far comodo ai possessori 
di SHARP MZ 700. 

Gianni Colasanti 

Ringraziamo il lettore per i graditi compli¬ 
menti e per l'attiva collaborazione offerta 
con l’invio del programma modificato ad 



uso dei possessori dello SHARP. 
Assicuriamo il lettore che il listato verrà 
pubblicato appena possibile. 


Carissima Redazione, 
ho 15 anni e posseggo un CBM 64.1 vo¬ 
stri listati sono interessanti e quelli fi¬ 
no ad ora pubblicati mi sono piaciuti 
tutti. 

Solo due richieste.... è possibile inseri¬ 
re sulla rivista piu programmi per il mio 
computer?.... Potrebbero alcuni di que¬ 
sti trattare problemi di astronomia e 
astrofisica??? 


Maurizio Morini 
Casteggio - PV 


Ci adopereremo sempre piu per venire in¬ 
contro alle esigenze dei nostri lettori.... 
magari con l'inserimento di un numero 
maggiore di listati per il CBM 64 e se pos¬ 
sibile anche con programmi trattanti pro¬ 
blemi di "astronomia e astrofisica": ogni 
lettore ha una sua particolare richiesta... 
ed essi sono proprio, ma proprio, tanti. 
Cercheremo ugualmente di accontentare 
tutti... e poi si può sempre provare ad 
adattare al CBM 64 i programmi per il VIC 
20 . 

Se il lettore è autore di qualche program¬ 
mino che ritiene possa interessare altri 
possessori di CBM 64, potrà anche inviar¬ 
lo alla Redazione... chissà che sfogliando 
uno dei prossimi numeri. ...Hi ! 


Mi chiamo Danilo, sono un ragazzo di 
12 anni. Possiedo un VIC 20. Vi prego 
di. 


Danilo Sapienza 
Siracusa 

Danilo è sicuramente uno dei più giovani 
nostri lettori... e questo ci fa molto piace¬ 
re! Vorremmo venire incontro alla sua ri¬ 
chiesta, ma sinceramente non siamo riu¬ 
sciti a capirla. 



Ringraziamo il Sig. SAVINO PANTALEO 
per l'invio del listato "OROLOGIO AD AL¬ 
TA RISOLUZIONE" per il CBM 64, che vo¬ 
lentieri pubblichiamo. 

Cogliamo l'occasione per invitare tutti i 
lettori che ci scrivono a non dimenticare 
di indicare il loro recapito per una even¬ 
tuale risposta privata ai loro quesiti. 


Gentile Redazione 

sono il fortunato possessore di un 
CBM 64 che da poco si è accostato alla 
vostra rivista. In essa, e me ne compli¬ 
mento, ho trovato tutto ciò che può in¬ 
teressare un ragazzo che, come me, si 
è da poco “affacciato” all’affascinante 
mondo dell’informatica e che quindi 
non è ancora in grado di comprenderne 
tutte le “meraviglie”. Oltre dunque a 
congratularmi vivamente, desidero 
chiedervi. . 

Leonardo B orge se 
Roma 

Ringraziamo Leonardo per i complimenti 
e siamo lietissimi che LIST sia per lui un 
valido aiuto. Per quel che riguarda la do¬ 
manda posta lo invitiamo a seguire la ru¬ 
brica MANUALE dove presto verrà tratta¬ 
to l'argomento richiesto. 


ERRATA 

CORRIGE 

Programma: COMMODORE 

13! (CBM 64), pagg. 8/13 LIST 
n° 5 

La formula per ottenere il nume¬ 
ro delle colonne dello sviluppo 
di un sistema integrale è 
2 h x 3 k 
ovvero: 

- 2 elevato alla h, con h = nume¬ 
ro delle doppie 

- 3 elevato alla K, con K = nume¬ 
ro delle triple 

Programma: COMMODORE 13 
(CBM 64), pagg. 8-13, LIST n. 5 
Linea 760: sostituire la variabile 
‘Z' con ‘C’ 

Programma: LEGGE DI OHM 
(ZX-SPECTRUM), pagg. 17-19 
LIST n 5 

Linea 97 leggi:‘‘V, A, R" 

Linea 235 leggi: "La tensione di 
uscita non può essere maggio¬ 
re di quella di entrata" 

Linea 250 leggi: "0, 0, 0 ME¬ 
NU'" 

Linea 495 leggi: "V, R, I" 


H 
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continue 
(o no?) 


a cura di Duccio Alfano 

Uno dei successi maggiori e, se 
vogliamo, più spettacolari, l'analisi 
matematica classica l'ha raggiun¬ 
to nello studio dei grafici delle fun¬ 
zioni, studio che riesce particolar¬ 
mente agevole ed elegante nel ca¬ 
so delle cosiddette funzioni conti¬ 
nue, quelle cioè, per dirla molto al¬ 
la buona, che si possono disegna¬ 
re ‘ ‘senza staccare la penna dal fo¬ 
glio" (gli studenti dell'ultimo anno 
del liceo scientifico sanno bene, 
naturalmente, che una funzione 
y - f(x) si dice continua in un suo 
punto di ascissa x 0 se risulta lim 
m = f(xo». x ^ Xo 

Esempi di funzioni continue, con 
parti dei rispettivi grafici, sono 
mstrati in fig. 1. 

Sono grafici (o parte di grafici) di 
funzioni continue la maggior parte 
delle figure che abbiamo trovato 
disegnate sui libri dalla prima ele¬ 
mentare in poi. 

L'uso costante che ne facciamo (o 
meglio, come vedremo, che cre¬ 
diamo di fame) unito alla relativa¬ 
mente semplice teoria matemati¬ 
ca che ne descrive le proprietà, ha 
fatto del concetto di continuità un 
concetto entrato nella nostra cul¬ 
tura, cioè accettato come ovvio, 


tanto da non farci dubitare che a 
questa “idea di continuità " possa 
non corrispondere una qualche 
“realtà". 

Eppure, se ci pensiamo un attimo, 
il concetto di continuità non è affat¬ 
to ovvio, anzi, è una pura astrazio¬ 
ne matematica, priva di validi sup¬ 
porti fisici che la sostengano. 
Quando accettiamo il postulato 
che dice: “tra due punti di una ret¬ 
ta ce n'è sempre un altro ” non ci 
sembra di far niente di particolar¬ 
mente importante o che il nostro 
intuito fatichi ad accettare. Questo 
avviene perché noi ci prefiguriamo 
istintivamente un modello del tipo 
fig. 2. 

Ma, se continuiamo a scegliere 
punti interni, ci rendiamo conto 
ben presto che, ad un certo livello, 
ogni ulteriore tentativo di “intro¬ 
durre altri punti" risulterebbe va¬ 
no. 

Senza neppure scomodare la mec¬ 
canica quantistica (che ha mostra¬ 
to come un modello quantizzato, 
cioè discontinuo, della natura sia 
molto più facilmente compatibile 
con i fatti sperimentali che non un 
modello continuo) ci si può convin¬ 
cere, pensandoci un po ', che l’idea 
di continuità, lungi dal corrispon¬ 



dere ad una “realtà" è invece do¬ 
vuta aH'imperfezione dei nostri 
sensi che ci fanno percepire come 
un tutto unico ciò che è invece co¬ 
stituito da numerosi elementi, ma¬ 
gari molto vicini l’uno all'altro, ma 
separati o, comunque, distinguibili. 
Come mai allora la teoria matema¬ 
tica del continuo ha avuto ed ha 
tanto successo? 

Per prima cosa, perché permette¬ 
va di affrontare e di risolvere con 
notevole eleganza e semplicità 
problemi alquanto complessi e poi 
perché forniva ottimi metodi di cal¬ 
colo (per esempio per il calcolo 
della lunghezza di traiettorie curve 
o per il calcolo di aree di figure mi¬ 
sti linee) in questioni che, “punto 
per punto", a causa dell'enorme 
numero dei componenti, era assai 
complicato manovrare. 

Mentre la prima motivazione rima¬ 
ne tuttora valida, per cui la teoria 
delle funzioni è fondmentale nella 
ricerca di modelli della realtà, la 
seconda, con l'avvento del calco¬ 
latore, va velocemente spegnen¬ 
dosi. 

Fino a pochi anni fa, l'ottenimento 
del grafico di una funzione “per 
punti" era impresa, a dir poco, lun¬ 
ga e noiosa e dava luogo a risultati 
poco precisi. 



Analogamente per la ricerca dei 
massimi e dei minimi. 

Oggi però, la grande velocità della 
macchina, opportunamente pro¬ 
grammata, permette di ottenere 
questi risultati in pochissimo tem¬ 
po e con notevole precisione. 

Per questo motivo, nel calcolo pra¬ 
tico dei valori numerici, il modello 
continuo non solo non è più neces- 
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sario, ma a volte è perfino fuorvien¬ 
te, e viene pertanto abbandonato, 
a favore del modello “quantizza¬ 
to" che non solo è più semplice 
concettualmente, ma è anche più 
vicino alla realtà fisica. 

Certo, occorre cambiare un po' 
mentalità (a partire dai programmi 
scolastici): per il calcolatore non 
esiste^ 7T, esiste 3.141592, non esi¬ 
ste V2, esiste 1.414213 eccetera. 

Ci si può meravigliare a volte ve¬ 
dendo nei risultati che 
2 2 = 3.999901 (ma in matematica 2 
per 2 non fa sempre 4?) e dove ci 
saremo aspettati uno zero tondo (il 
più bel numero nei sudati esercizi 
d'algebra) un antiestetico 4.57638 
E-16. 

Proviamo però a disegnare su una 
retta un punto distante dall'origine 
3.999901 cm e un altro distante 4 
cm. 

In barba a tutti i postulati di conti¬ 
nuità, sarà ben difficile riuscire a 
distinguerli. 

Ancora più arduo sarà distinguere 
0 da 0.000000000000000457638 
(E-16 vuol dire: moltiplica per IO' 16 
cioè dividi per IO milioni di miliar¬ 
di). 

Il listato che segue, come al solito, 
realizzato per il CBM 64 con SI¬ 
MON’S BASIC, ma facilmente 
adattabile a qualsiasi altro calcola¬ 
tore, calcola il minimo e il massimo 
assoluto di una qualunque “funzio- 

ISTRUZIONE SIGNIFICATO 

Cancella lo schermo 

Istruzioni all'utente affinché introduca la funzione da graficare 
Questa istruzione è volutamente incompleta. Sarà completata dall’utente secondo le 
istruzioni 6-9 

Chiede gli estremi XI e X2 (con XI <X2) dell'Intervallo per cui si vuole il grafico 
Dimensionamento del vettore FUN in cui verranno ordinatamente immagazzinati i valori 
della funzione, per i valori di X compresi tra XI e X2 

Valori di inizializzazione di alcune variabili: I contiene la componente corrente di FUN, in 
MI ed M2 verranno immagazzinati i valori di I corrispondenti al MAX e al MIN 
DX è il passo con cui si incrementa la X 

Vengono calcolati i valori della funzione per i valori di X da XI a X2, a passi di DX e ven¬ 
gono conservati nel vettore FUhJ. Vengono calcolati i valori MAX e MIN che la funzione 
assume nell'Intervallo 

Stampa le coordinate dei (primi) punti di massimo e di minimo 
Fattore di scala per il dimensionamento automatico sull’asse del Tordi nate 
Comanda il passaggio all'“alta risoluzione ” 

Orienta Tasse Y verso l'alto, dimensiona il grafico secondo il fattore di scala SY, aggiu¬ 
sta l'origine dell'asse Y in modo da farla coincidere con MIN (questo per fare entrare tut¬ 
to il grafico nello schermo) 

Illumina il punto dello schermo con le coordinate (nel sistema del calcolatore) X,Y 
Lascia lo schermo acceso per 10 secondi e poi termina il programma. 


5 

6-9 

IO 

20-23 

25 

40-45 

50 

60-110 


120-129 

150 

200 

220 


230 

350 


ne continua " in un certo intervallo 
assegnato (se il massimo e/o il mi¬ 
nimo assoluto non sono unici, il ri¬ 
sultato dato corrisponde all'ascis¬ 
sa più piccola), ne rappresenta, 
per punti, il grafico, dimensionan¬ 
do automaticamente le scale, af¬ 
finché il grafico stesso venga tutto 


compreso in una “schermata”. 
Piuttosto che appesantire il listato 
con una lunga serie di REM, diamo 
qui di seguito una spiegazione del¬ 
le istruzioni (chi ci ha seguito fin 
qui non dovrebbe avere grosse dif¬ 
ficoltà nel seguire la logica del pro¬ 
gramma). 


5 PRIHT"fi¬ 
fe PRINT" PER DEFINIRE LA FUNZIONE" PRINT PRINT 

7 PRINT" BATTI : " : PRINT PRINT PRINT" LIST IO <RETURN)" : PRINT : PRINT 

8 PRINT" COMPLETA L'ISTRUZIONE" 

9 PRINT" E POI BATTI " PRINT PRINT PRINT" RUN 10 (RETURN)": GOTO 350 

10 DEFFNV(X)= 

20 PRINT" INTRODUCI GLI ESTREMI" 

21 PRINT" DELL'INTERVALLO DI X" 

22 PRINT" DI CUI VUOI OTTENERE" 

23 PRINT" IL GRAFICO E ASPETTA UN PO'" ; PRINT 
25 DIM FUN<321) 

30 INPUT "X1=";X1 INPUT "X2=";X2•PRINT 
40 MAX=FNV<XI) : MIN=FNV < X2 > 

45 1=8 M1=1 M2=l 
50 DX=<X2-X1 V320 
60 FOR X=X1 TO X2 STEP DX 
70 1=1+1 

SO FUN<I)=FNV<X> 

90 IF FNV(X»MAX THEN MAX=FNV<X) ; M1 = I : GOTO 110 
100 TF FNV<XKMIN THEN MIN=FNVCX> ■ M2=I 
110 NEXT X 

120 PRINT"MASSIMO STIMATO NELL'INTERVALLO "PRINT 

121 PRlNT"X=";Xl+M14iDX PRINT PRINT 
123 PRI NT " V= " FUN (Mi) : PRI NT PRI NT 

125 PF4INT"MINIMO STIMATO NELL' INTERVALLO • " : PRINT 
127 PRINT"X=";X1+M2*DX•PR1NT PR1NT 
129 PRINT"V=",FUN <M2) 

150 SV=200,' < MAX-M IN > 

160 PRINT : PRINT"PREMI UH TASTO PER IL GRAFICO" 

165 GET A* IF R*="" THEN GOTO 165 

200 HIRE3 0,1 

210 FOR X=1 TO 319 

220 V=200-SV*<FUN <X >-MJ N > 

225 IF V<0 OR V>199 GOTO 340 
230 PLOT X,V,1 
340 NEXT X 

350 PAUSE IO : PRINT"f]" 

READY. 
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Affinché i grafici vengano ben in¬ 
terpretati, occorre immaginare lo 
schermo come una parte del siste¬ 
ma di riferimento cartesiano, se¬ 
condo lo schema di fig. 3. 

Per concludere, alcuni suggeri¬ 
menti per l'applicazione pratica 
del programma, tratti dai compiti 
scritti di matematica assegnati 
all’esame di maturità scientifica 
degli ultimi anni: 



FUNZIONE 

INTERVALLO 

ASSEGNATA ALLA MATURITÀ 
SCIENT. DELL’ANNO 

y = (XT4)/24-(XT3)/6 + (XT2)/6 

XI = -1 

X2 = 2 

1970 

y = 2*SIN(X) + SIN(2*X) 

XI =0 

X2 = 6.28 

1971 

y = SIN(2*X)*COS(X) 

X X 

N) -*• 

Il II 

07 O 

ho 

co 

1972 

y = 3*COS(2*X)-4*COS(X) 

co 

CNJ 
o co 

Il II 

T- CO 

X X 

1973 

y = (XT2)*(3-X) 

XI =-1 

X2 = 3 

1975 

y = X + 2*SIN(X) 

XI =-6.28 

X2 = 6.28 

1976 

y = (6*XT2 + 2*X + 3)/(2*X(2XT2 + 1 ) 

XI =-2 

X2 = 2 

1980 

y = (1-2*XT2)/((2*XT2 + 1)T2) 

X X 
no 

Il II 

1980 

y = Xt 3/2-13*XT2/4 + 6*X-9/4 

XI =0 

X2 = 3.5 

1982 

y = SIN(X)T3 + COS(X)T3 

XI =0 

X2 = 6.28 

1982 
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Anagrammi 

Un altro esercizio-gioco per i piu piccoli che divertirà senz'altro anche chi di anni ne ha qualcuno di piu. 
Sullo schermo vengono visualizzate delle lettere disposte in modo casuale ed appartenenti ad una paro¬ 
la scomposta che dovete cercare di ricomporre. 

Naturalmente, il computer riconosce come valida solo quella parola memorizzata nelle linee 500 e 510 
(che possono essere modificate a piacere]. Nel caso, quindi, di una parola che risulti diversa da questa, 
anche se formata dalle stesse lettere, il computer segnalerà un errore. 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 




10 REM 


ANAGRAMMI 

BV 

MARINO CORETTI 
LIST-SCUOLA 



li rem **mm*m*M**M** 

15 FRI NT k Tm«iM?I«Bltì*»»Ì»»»lsFlNftGRftMMI 
20 PRI NT " TENDER E PREGO" 

30 FORZZ= 1TO3000 •' NEXTZZ 
35 PRINT"milN QUESTO GIOCO DOVETE" 

40 FRINT"CERCARE DI RICOMPORRE 
45 FRINT"DELLE PAROLE CHE SONO 
50 FRINT"STATE SCOMPOSTE, ANA- 
55 PRINT"GRAMMANDG FRA LORO LE 
60 PRINT"LETTERE CHE COMPAIONO 
65 PRINT"SULLO SCHERMO. 

70 PRINT"ATTENZIONE ! ! PER OGNI 
75 PRINT"PAROLA SI DEVONO USARE" 

80 PRINT"TUTTE LE LETTERE PRE-" 

85 PRINT"SENTI SULLO SCHERMO." 

90 PRINT"HlQHBFREMERE UN TASTO" 

95 GETQ$ : IFQ$=""THEN95 

100 DI MA* < 20 > : FOR J= 1TO20 •' RE ADA t < J ) : NEXTJ : PR I NT " 3" 

110 FORK=1TO40 

120 J=INT(RNDC1)$20+l> 

130 L S LEN(A$<J)> : S=1 

140 FORN=LTO1STEP-1 

150 B$ < S)=MID$(A$(J>, N, 1 ) : S=S+1 : NEXTN 

160 FQRS=1TO10 

170 X*INT<RND<1>*11> 

180 V-INT<RND<1>#22> 

190 PRINT"B":FORR=1TOX:PRINT :NEXTR 
200 PRINTTAB<V);<S >:NEXTS 
300 PRINT"B":FORZZ=1TO15 :PRINT-NEXTZZ 
310 INPUT"NOME ";R t 

320 IFR$=A*<J > THENPRINT :PRINTTAB(8 >"AERAVO"= GOTQ340 
330 PRINT : PRINT"IL NOME ERA ";A$CJ) 

340 PRINT : PRINT"PREMI UN TASTO" 

350 GETQ$:IFQ$=""THEN350 
360 PRI NT "IT 

365 FORS=1TO10 : B$<S>="":NEXTS 
370 NEXTK 
380 END 

500 DATASCEMO,QUADRO,FASCIA,SCELTA,TENDA,GIGLIO,CHIESE,GNOMO,RAGNI,CHIODO 
510 DATACHIOMA, FOGLIA, RICCHI, GIOCHI, FI GL IE, MOGLIE, CUO10, CUOCHI, PARCHI, SOGNO 
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ZX Spectrum 


Il monastero maledetto 

"Michele il carpentiere" deve restaurare un antico e quanto mai misterioso monastero: ma il suo lavoro 
non è facile!! 

Per prima cosa dovrà costruirsi una lunga scala per arrivare in cima all'impalcatura che sorregge l'oro¬ 
logio della torre; ma dovrà stare attento e fare piu in fretta Dossibile: intorno a! monastero, infatti, gira e 
rimbalza una PALLA che uccide al suo contatto, mentre un fantasma scendendo dal tetto cercherà di rag¬ 
giungerlo per ucciderlo. 

Una volta in cima all'impalcatura il gancio di una gru impazzita solleverà l'orologio spostandolo veloce¬ 
mente sul tetto del monastero. 

Soltanto premendo un pulsante al momento giusto "Michele il carpentiere" potrà scenderlo al posto giu¬ 
sto completando cosi il restauro. 

Tutto questo succede nel... MONASTERO MALEDETTO... IH! 


Struttura Programma 


10-75 

80 

90 

100 

102 

103 

105-130 

140 

150 

200 

210 

215 

220 

230 

2000-2030 

2040 


stampa schermo iniziale 

sviluppo variabili 

sviluppo loop per num. scale 

stampa nuova posizione Michele e palla 

controlla se Michele è stato colpito 

controlla se Michele si è arrampicato 

movimento palla 

ridimensionamento loop controllo num. scale 

posa la scala nel punto giusto se la stai portando 

movimento orizzontale eli Michele in accordo con tasto premuto 

movimento verticale di Michele in accordo con tasto premuto e sua posizione 

movimento fantasma sul monastero 

controllo tempo 

stampa fantasma sul monastero 

movimento orologio e controllo tasto "0" (se viene premuto) 
controlla se orologio è al posto giusto 



1 REM *********************** 

2 REM * * 

3 REM * IL MONASTERO * 

4 REM * * 

E REM * WALEt'ETTO * 

6 REM * * 

7 REM **********************=- 

& REM 

9 GO SUB 1200 

10 LET t=0: FOR n=U3R “a” TO U 
SR "q”*'7 

20 REREn 9 : FOKE f>, * : «EXT n 

30 DRTR 255,0 , 255 , 15 , 15 ,255 ,0. 
255,66,66,126,66, &&,&&, 126,66 . 5*> 
,56,16,236,254,196 .222.222, 196,1 
24- , 68,84,84,64,64,238,56,1O0,226 
, 24-2,250, 124,56.0,3.14.30.59.127 
,111,254,158,128,224,240,164,188 
,108,254,242 

40 DATA 254,111,127,59,30,14,3 
,0,126,156,228,184.240.224.128.0 
,255,1,1,1,255,16.16,16,24.36.36 
,36,36,36,24,0,24,36,24.16.8,4,3 
6,24,56,124,250,242,226,100,56.0 
,189,255,219,255,189,153,129,255 

50 DATA 129,129,129,129.129,12 
9,129,255,255,231,231,135.195,12 
3,129,129,24,24,126,126.24,24.24 
,24 
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ZX Spectrum 






60 PftPER 7. INK O : BORDER 6.- C 

L5 

70 POR n =0 TO 1: POR F=5 TO 31 
PRINT INK 5.. PAPER 1, «T r*4«n + 
2;"B” : NEXT f: NEXT n 


BO PRINT INK 3;RT 0,0." 


21 




__ POR n=I TO 20: PRI?P INK 3; 
pt n,0;"f",RT n , 31; ” f" : NEXT n 
100 POR n = 1 TO 4.. PRINT INK 1/ 
PfiPER 5; RT N 

EXT n 

110 PRINT INK 2.. PAPER 6; RT 1.. 2 

. “jjjj”; ptt 2 , 2 .. "JFGJ”, at 3 , 2 ; "JH 
ij m ;rt 4 , 2 ;-jjjj" 

120 POR n = 12 TO 7 STEP -1: PRIM 
T RT n,10; PRPER 7; INK 3.”00000 
OOOOOOOOOOOOO”; RT INK 3; 

PRPER &; “JJJJJJJUUUUUUUUUUU" . N 
EXT n 

130 POR n =11 TO 25 STEP 2: PRIN 
T PRPER l; INK 7;RT 9,n;"P".AT 1 

■3 .n ; "O" : NEXT n 

Ì4-0 LET V =RND *16 + 10: PRINT RT 1 
2 , v; PRPER 0; INK 6; "P”;RT 13.v; 

"O" 

150 POR f=16 TO 20: PRINT INK 2 
RT f,27;”BBBB": NEXT f 
160 POR n =1 TO 8. PRINT INK l.R 
T n,28;”K";AT 9 , 26 : ”L" : RT 15+INT 
l’RNDtS) -l,2tn f8, "O": NEXT n: PR 
INT INK 1 ; RT 13..B; "©©" 

180 LET 0=19: LET p = 13: LET X = 1 
0: L ET y =36: LET Xl=-1: LET yl = i 
LET tfl*= 0: LET 3 =X: LET b=y: L 
ET C =D: LET ó =p 
190 PROSE 0 

200 LET SC=0: FOR n =4- TO 0 STEP 
-1: LET diSt=<t*n+3 

210 LET V =INT (RND*8) *2 + 11: PRI 
NT RT a., b, ” "; RT c,d; " RT ctl. 

d; " **; RT o,p;"C";RT o + l,p; **D“ : P 
RINT INK l.AT INK 7; PR 

PER 1;RT 10.v;”N ”• LET C=o: LET 
d=p: LET a =X: LET b=y 
220 IF RTTR io,pì<> SS OR RTTR l 
Ofl,p) Ci SS THEN GO TO 1000 
230 IP'o=3 RND p =6 THEN GO TO 1 
030 ** 

24.0 LET al=Xl: LET bl=yl 
250 IP RTTR (x,y+yl) < >56 THEN L 
ET y1=(yl=-l)-cy1=1) 

260 IF RTTR (XfXl,y) 056 THEN L 
ET Xl=CXl = -l)-IXl = l) 

270 BEEP .003,2*tem 

280 IF a 1=X 1 RND bl=y1 RND RTTR 
(X+Xl,y+yl) 056 THEN LET Xl=(Xl 
= -i) - Cx 1 = 1) : LET y 1= (y l = -l) - (y 1 = 
1) 

290 PRINT INK l; RT X,y;**M” 

300 LET xaXfXl: LET y =y +‘J 1 
310 IP p =30-n RND sc=0 THEN PRI 
NT RT a,b;” ”: BEEP .1,10: LET S 
C=1 FOR /=16 TO 20: PRINT RT F, 
31 -n ; ■* ": NEXT f : NEXT n 

320 IF p =9 RND SC-1 RND o=n*4-+7 
THEN BEEP .1,5: LET 3C=0 : FOR f 
=n*4.+5 TO 20: PRINT INK 2, RT f,S 
;”B”. NEXT f 

330 LET p=p+(INKEY$="6" RND p<3 
0-n RND 0=19)-CINKEY*="5" RND Co 
= 3 OR (0=19 RND p > 9 > ) ) 

34-0 IF p=9 THEN LET 0=0 + (INKEY$ 
= "6" RND O <19) — (INKEV $ = ”7” RND O 
>diSt): BEEP .005,10 
350 PRINT RT 7, te iw +10; PRPER 7 ; 
INK 2;”D” 

360 LET te IP = te m + . 075 IF t & m i = 1 

7 then let a «=”CE—B rasaci iuran 

IMTlP imMÉlF GOTO 1120 
370 PRINT RT 7, tea» + IO; PRPER 7, 
INK 0, "N" 

360 PRINT PRPER I, INK 7, RT 10, 

v ; ■ * o " 

390 GO TO 210 

1000 FOR n =10 TO 0 STEP -.2: BEE 
P .005,n: NEXT n: FOR n=0 TO 18: 
PRINT RT n ,p ; PRPER 8;”K": NEXT 
n 


1010 FOR n =16 TO 0 STEP -1: BEEP 
. 005 . n : BEEP . 005,n+5: PRINT RT 
n,p , PRPER s;”K”,RT n+l,p;”L";A 
T n+2,p,"C";AT n 4-3 . p ; ”D” ; RT n +4 . 

Pi" NEXT n __^ 

1020 let a$= fTM<H HI H— TI 
aqmw i ■— i i i go to 1120 

1030 FOR n =16 TO 1 STEP -1: PRIN 
r RT n,26;"K”;AT n+l,26;”L";RT n 
+ 2,23;” ”: BEEP .01. ri: NEXT n 

104.0 FOR n =28 TO 6 STEP -1: PRIN 
r RT 1, n; ”K "; RT 2,n;"L " : BEEP 

.01,n: NEXT n 

1050 FOR n = 1 TO 24- : PRINT RT l,n 

; ” prper 6 ; INK 2; "UUUU"; pop 

ER 7; "K” ; RT 2, n ; ” PRPER 6, " JP 

GO”; PRPER 7; ”L” ; RT 3 , n ; ” " ; prp 
er 6 : “ oh io” ; RT 4., n ; PRPER 7;” 
PRPER 6,”0000” 

1060 IP INKEV $ < >”0” THEN BEEP .0 
l.n: NEXT n : FOR f = l TG 4- . PRINT 
RT f , 24- ; •*: NEXT f . GO TO 

1050 

1070 IP n < >9 THEN LET 3ì = ”i 
T^l 1120 

1080 FOR n =5 TO 8: PRINT RT r.,10 
; PRPER 6, INK 2;”0000"; NEXT n 
1090 PRINT RT 5,11; INK 6; PRPER 
l; "PP”;RT 6,11; "OO" 

1100 FOR f=l TO 5. FOR n=l TO 10 
BEEP . 01 , n £ f : NEXT n NEXT f 
1110 LET 3=0: LET a S = FBn—JfS 

1120 FOR n =0 TO 2 STEP .06: PRIN 
r RT 3.0; BRIGHT l; INK n; ("tfft 
** CHE 5FORTUNH... tttitf AN 
D 3(>0);RT 3,0;("ftft CONGRRTU 
lAZIONI »! ****" RND a=0) ' a *; A 

7 20,7," UUOI GIOCARE ANCORA?" 

1130 IP INKEY$=”S" OR INKEY*=”S" 
THEN GO TO B0 

1140 IF INKEV $ ( >”n” RND INKEY*<> 
"N" THEN NEXT O: GO TO 112© 

1150 STOP 

1200 PRPER 2: BORDER 2: INK 7: C 
LS 

1 210 PRINT TAB 10;“ISTRUZIONI" 
1220 PRINT " *** ************ 

ifffffffffFF"*' 

1230 PRINT ” MICHELE-IL-CARPENTI 
ERE sta ultimando il restauro di 
un antico esisterioso monastero 

124.0 print "L'ultima cosa rimasi 
a da Fare e'queua di ricollocar 
e al suo po-sto l'orologio situa 
to sopra unaispalcatura." 

1250 PRINT " Per arrivarci dovr 
a ' costruirsiprima una lunga scat 

a.. Patto questo, il gancio d 

i unagru impazzita solleverà' l' 
oro logio." 

1260 PRINT "Riuscirà' MICHELE—il 
-carpentierea completare la sua 
opera sganciando l'orologio sull 
a parte sinistra del monastero?" 
1270 PRINT RT 21,0; PRPER 7, INK 
0, BRIGHT l;"PREMI UN TASTO"; B 
RIGHT 0. PAUSE 0: CLS 
1280 PRINT "Riuscirà' in questo 
senza esse re co ipito da una MICIO 
IRLE SFERA eprima di essere r 
aggiunto dai fantasma del monaste 

RO??" 

1290 PRINT ' ' ' PRPER 6; INK 0; ”C 
□MANDI:" 

1300 PRINT '"Usare i tasti cyrso 
re(5,6,7 e 8)per il movimento di 
MICHELE” „ 

1310 PRINT ''"Premere il tasto 0 

per sganciare l ' oro logio .. 

1320 PRINT RT 21,0; PRPER 7, INK 
0; BRIGHT l;"PREMI UN TASTO* : P 
AUSE 0: CLS 

1330 LET b$=“ BUONA FORTUNA» 

134.0 FOR k = 1 TO LEN b$ 

1350 LET i=INT CRND+SJ+2 
1360 PRINT RT 10,7+k; BRIGHT 1; 
PRPER 7; INK i; b$ < k) ; : NEXT k 
1370 RETURN 
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XXIII Olympics 

Non si è completamente spenta l'eco dei successi di Cari Lewis ed ecco che LIST già vi propone un gioco 
dedicato al salto ad ostacoli. 

Come al solito il gioco è diviso in due parti. 

Il primo listato dà una schermata di presentazione in cui ci sono i cerchi olimpici e poi la figura schematiz¬ 
zata di un atleta pronto a saltare un ostacolo. 

Sempre nel primo listato, vengono ridefiniti tutti i caratteri necessari allo svolgimento del gioco e di segui¬ 
to viene fatto caricare dal registratore il gioco vero e proprio. 

Nella sua struttura il gioco è abbastanza semplice. 

Bisogna far saltare gli ostacoli all'atleta agendo sul tasto FI. 

Ogni volta che si sbaglia / si ode un rumore secco e le penalità visualizzate sullo schermo aumentano. 
Dopo 30 giri vengono visualizzati il tempo e il numero di penalità. 

Struttura del primo listato. 

100-1 70 Presentazione del programma con visualizzazione dei cerchi olimpici e dell'atleta. 

1 80-270 Ridefinizione dei caratteri grafici. 

280-390 Visualizzazione della bandiera italiana e routine di carica del secondo listato 
Struttura del secondo listato. 

10-41 Preparazione dello schermo e presentazione del gioco. 

50 Pausa fino a quando non si preme un tasto. 

55 Azzeramento del cronometro interno. 

60-104 Visualizzazione della pista e rumore del pubblico. 

105-107 Visualizzazione dell'atleta in corsa. 

108 Salto incondizionato riguardante il numero di giri. 

1 14 Test di collisione ostacolo. 

1 19 Salto incondizionato, visualizzazione dell'atleta impegnato nel salto. 

120 Salto incondizionato, visualizzazione dell'atleta in corsa. 

130-140 Continuazione del loop principale e ritorno alla linea 103. 

305-350 Routine di salto dell'atleta. 

460-525 Routine di corsa dell'atleta e aggiornamento penalità e giri percorsi. 

700-720 Routine per l'aumento delle penalità. 

800-890 Fine gioco, visualizzazione dei tempi e test per eventuale ripetizione 

900-920 Routine particolare per percorso netto. 

Variabili impiegate 

LA = Numero di giri percorsi. 

PE = Numerodi penalità. 

U=Variabile di servizio per assegnazione colore. 

F=Variabile di servizio per animazione ostacolo ed atleta. 

Re = Fattore di casualità per assegnazione della penalità. 

S,H,Z=Variabili di servizio per effetti sonori. 


10 PRI NT " 3W" ; • P0KE36879,25 

30 PRINT" sPPGr ^PPki r t* 

31 print" 

32 PRINT" 2*G IHII l* IMII r»| imi " 

33 PRINT" aC IPPPI li IPPPI '*1 Hiiil " 

34 PR I NT " ^mrwiia ^Pf WW" 

35 print "«ito w" 

36 PRINT" 2K1PPPPI «Pii IBi «Pii 11 

37 PRINT" 3TPPPPPI «PPI IBi IPPPI " 

38 pr i nt " ^PPPPPn^PPFinBn^PPrw- 

39 PRiNT"s»p»»»»na «niPPBna w" 

40 PRINT "mBM XXIII OLIMPI CS LOS ANGELES 1934"■ 

50 FQRT=1T04000•NEXTT 


II 






Vie 20 



70 PRINT " JSltìeMSti 


80 FRI NT" 1 m éì 

90 FRI NT" ’J* Si'-'" 

100 FRI NT" kisr«r«^dr" 


110 FRI NT" UIC." 

120 FRI NT" atJftiCWI il" 

130 FRI NT" Sè/i II " 

140 FRI NT" aktS II " 

150 FRINT" ai 


160 FRINT"Sii QOPVRIGHT BV MAX.TI." 

170 FRI NT "ali 

180 P0KE55,191:P0KE56,29 

190 F0RM=7615T07678 : READ A ’■ POKEM,A : NEXTM 

200 DATA0,24,24,24,24,24,36,60 

210 DATA©,15,0,0,0,0,192,63 

220 DATA14,14,190,120,252,227,252,255 

230 BATA0,0,0,0,0,226,4,248 

240 DATA0,243,11,15,30,62,122,123 

250 DATA0,128,128,128,0,0,0,240 

260 DATA0,0,0,0,1,1,2,2 

270 BATA120,108,198,195,159,32,0,0 

280 FORT=1TO6000:NEXTT 

290 PRINT"IM":P0KE36879, 59 

300 FRINT"- 

310 FRI NT "Mai a f* «I 


360 FRINT"«SCHE VINCA IL MIGLIORE!" 
370 FQRT=1TO6000:NEXTT 
380 FRI NT" 71 UN ATTIMO... k." 


320 

330 

340 

345 

350 

355 


FRI NT "Sii 
FRI NT "ai 
FRI NT" ai 
FRI NT "ai 
FRI NT "ai 
FRI NT "ai 


fa 

fa 

fa 

ra 

fa 

fa 


390 P0KE631,131:P0KE632,13:POKE198,2:NEW 


a 

a 

a 

a 

a 

a 

a 


fa 

fa 

fa 

fa 

fa 

fa 

fa 


SFli SALTO" 


o 

10 

15 

20 

30 

35 

40 

41 

50 

51 
15 

60 

65 

70 

75 

80 

90 

100 

101 

102 

103 

104 

105 

106 
107 
110 
114 
M 9 
120 
130 
140 


FRI NT "73" : P0KE36869,255 : F0KE36879,25 

PQKE36878,5 

S=1 

F0RC=7680TO8185 :POKEC, 160 :NEXTC 
PRINT"aDfl^aW*E.TOffaW5B LOS ANGELES" 

FRINT" WSEuBOfSjk. XX111 OLVMPICS " 

FRI NT "aro »Dk 1984MW" 

GETX$ : IFX$=""THEN50 

FOLE36878,15 :F0KE36377,220 :F0RV=15T05STEF-.05 :P0KE36878,V :NEXTV:F0KE36877,240 
TI$="000000" 

PR I NT " 

FR I NT " 

pr i nt " i ìmmmmmmmmmmmm 

FRINT'^ì» 

F RI NT i i 
F0KE36877,240 

FR I NT " fas- 


FR I NT " ilPlPlPlPlPlPlPlPlBltìPlPlPlPlPlslBlPla^a- 

F0RU=38774T038818 : POKEU, 6 : NEX'TU 
FORF=1TO20 

FRINT" affiPENfìLITA'",RE ;" GIRI"; LA 
POKE8098-F,56 

POKE8054+F,60 :POKE8055+F,61 
P0KE8U75+F,62 : POKE8076+F, 63 
GOSUÉ305 

I FF'EEK C 8098-F-1 > 0160THENGOSUB700 

GOSUB305 

G0SUE460 

NEXTF 

GOT01@3 


"MÉ > s ' ' W/i&i ''/• 




















305 I FF'EEK < 197) O39THEN320 

306 PUKE8075+F, 160 : F'QkEb’076+F, 160 

307 I FF’EEK < 197)=63THENS=S+1 

310 POKE8054+F, 57 : POKE8055+F .• 53 • POKE8056+F, 59 

315 FORT=1TO100 : NEXTT 

316 POKE8054+F,160 :P0KE8055+F,160 :P0KE8056+F,160 
320 IFLR=30THEN800 

350 RETURN 

460 POKE8054+F, 60 : POKE8055+F, 61 
470 POKE8075+F,62 :POKE8076+F,63 

490 POKE8054+F ,160 : POKE8055+F, 160 •' POKE8075+F, 160 : POKE8076+F, 160 

519 IFF>=20THEHP0KE211,18:P0KE214,17 :SVS58759:PRINT"a "■ LR=LR+1:P0KE211,16 :POK 
E214,18 : 3VS58753:PRINT"a 

520 P0KE211,18 : P0KE214,10:SVS53759:PRINT"3 " 

521 POKE8098-F,56 

522 POKE809S-F,160 
525 RETURN 

700 P0KE36378, 15 = RE=INT <RND<1> *3) +1 

705 F0RT=1T0RE •' FOR2=130TO180STEP5 : P0KE36877, Z 

710 NEXTZ:P0KE36877,0 :FORZ=1TO50:NEXTZ : NEXTT 

715 P0KE36878,5 :P0KE36877,240 

716 PE=PE+RE 

720 PRINT"3M3PENRLITA'";PE;"■": RETURN 
759 :PRINT"3 

800 PR I NT " naV.Y.ViV.V.V.V.V.ViV.V : P0KE36377,0 

805 P0KE36373,15:FORV=1TOPE:FORS=130TO2403TEP5:P0KE36876,S:NEXTS : NEXTV 

310 P0KE36876,0 :P0KE36878,0 :PRINT :PRINT :POKE198,0 

820 PR I NT " EBBETEMPO IMPIEGRTO " ; MID$ < T1 1 ,3,2) " : " P.IGHT$ < TI %, 2) 

830 IFPE=0THEN900 

840 PR I NT " SWMPPENRLITR •' " ; PE 

850 PRINT "m&Kl GCHI ANCORA?(S/N)" 

860 GETX$: IFX$=""THEN860 
870 IFX$="S"THENRUN 

380 IFX*="N"THENPRINT" 33":P0KE36869,240 :P0KE36877,0 :P0KE36878,0 :P0KE36873,27 : END 
830 GOTO850 

300 PRINT"WWaCOMPLNIENTI .! ! ! PERCORSO NETTO" 

305 P0KE36878,15:FORH=1TO15 :FORS=200TO220+H*2 
310 PGKE36876,S:NEXTS:NEXTH:P0KE36878,0 :P0KE36876,0 
320 GOTO850 




13 





















CBM64 


Tabelline spaziali 

Il computer può essere impiegato per vivacizzare e rendere piu attraente l'apprendimento e la verifica 
di nozioni ritenute, a volte, alquanto noiose. 

Probabilmente nessun bambino trova divertente ripetere le tabelline, ed ecco un programma didattico 
che, sfruttando le capacità grafiche e sonore del CBM 64, rende meno faticoso tale esercizio: TABELLI- 
NE SPAZIALI!!! 

Operata la scelta della tabellina (da 1 a 9), potete scegliere tra il visualizzarla oppure passare diretta- 
mente all'esercizio-gioco. 

Nella parte inferiore dello schermo, un'ipotetica lavagna, viene visualizzata una moltiplicazione di cui è 
richiesto il risultato; nella parte superiore appaiono, invece, tre missili, identificati con le lettere A, B e C, 
contrassegnati da un numero che rappresenta una delle possibili risposte. Digitate la lettera corrispon¬ 
dente al missile con il risultato che ritenete essere quello giusto: in caso di errore si viene avvertiti da un 
suono cupo e viene visualizzata la risposta esatta. Se la risposta data è esatta, i missili avanzano nello 
Spazio accompagnati da alcune note musicali: il progressivo spostamento dei missili e il conseguente au¬ 
mento del numero delle note eseguite, portano al completamento di un motivetto, simpatico incentivo per 
i piu pigrill! 

Per ogni serie di dieci domande viene visualizzato il numero delle risposte esatte ed errate, la percentua¬ 
le di errore... ed un giudizio! 

ed allora, BUON STUDIO o BUON DIVERTIMENTO??!! 


Struttura del programma 

190 - 270 Subroutine per la generazione degli effetti sonori 
280-300 Predisposizione delle variabili nei missili 
310-320 Creazione parte chiara dello schermo 

330-430 Loop princ.: genera i numeri casuali che vengono impiegati nella domanda e le risposte 

nei missili 

440 Inserimento risposta 

450-470 Display risposta giusta 
480 Verifica risposta 

490-610 Effetti sonori e grafici in relazione alla risposta data 
620-660 Inizializzazione loop princ. 

670-870 Inizio programma 

790-870 Fine programma, evidenziazione punteggio finale 

880-920 Inizializzazione costanti e variabili 

930-1040 Display titolo 
1050 Immissione DATA relativi agli Sprites 

1060-1080 Imissione DATA relativi agli effetti sonori 
1090-1120 Richiesta istruzioni 
1130-1 150 DATA relativi agli Sprites 
1 160-1180 DATA relativi agli effetti sonori 
J190 Stampa istruzioni 
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rem############*######## 

REM* 

REM* TABELLINE# 
REM# 

REM* SPAZIALI 
REM* * 

REM********************* 
GOT0380 


REM ***EFFETTI SONORI### 
















































200 POKESU+24,15 :FOKESU+5,17 :PGKESU+6,241 :POKESU,100 
210 FORX= 1TO12 ■■ POKESU+ LT1(X> :POKESU+4, 17:FORD= 1T0T5 : NEXT : NEXT ; GOTO240 
220 F0RX=1TO12 :POKESU+1,T2 <X>:POKESU+4,17:FORD=1T0T5:NEXT:NEXT:GOTO240 
230 F0RX=1T012 : POKESU+1,T3<X>:POKESU+4,17:F0RD=1T0T5:NEXT:NEXT : GOTO240 
240 POKESU,16:RETURN 

250 FORX-0TQ24:POKESU+X,0 :NEXT:POKESU+3,1 :POKESU+24,143 :POKESU+6,240 
260 POKESU+4,65 :FQRX=1TO120 :POKESU,S:POKESU+1,3:NEXT:POKES+24,0 
270 FORX=0TO24:POKESU+X,0 :NEXT: RETURN 

274 : 

275 REM ***VARIABILI DEI DISCHI*** 

276 : 

230 AA=E:BB-B:CC-C:E$="A": RETURN 
290 Afi=C:BB=E:CC-B:E$="E":RETURN 
300 HA=B : BB=C : CC=E : E$="C" : RETURN 
303 : 

305 REM ***PIJLIZIfì PARTE INFERIORE SCHERMO*** 

3 G 6 : 

310 PRI NT " 1 ' J : FORX= 1 T 07 

320 PR I NT " ina " ; •' NEXT : P 0 KE 646,0 : RETURN 

324 : 

325 REM *#*LQ 0 P PRINCIPALE*** 

330 : 

340 FORJ= 1 TO 10 :A=INT <RND < 0)*10 >:B=INT <RND <0 > *12 > +4 :C=INT <RND< 0>*24 >+2 
350 D=INT(RND < 1>*3 > +1 :E=N*A:B=E+B: IFABS<E-C>> 10 THENC=ABS<E-C >:GQTO 370 
360 C=E+C 

370 IFD= 1 THENGOSUB 230 


330 IFD=2THENG0SUB290 
390 IFB=3THENGQSUB300 

400 PR I NT " SttSDWHTSPC<M > " A" AA : PR INT " Wm" SPC<M) " E " BB : PR I NT " mM" SPC<M > "C"CC 
41U PR INTSPC (IO) " iste® 

420•PRINT" 1" SPC<10>N"*"A"=" 

430 PRINT"tì"SPC(10) "QUAL 'E “ IL RISULTATO GIUSTO? 11 
440 CETE*:IFZ$<"A"ORZ$>"C"THEN440 
443 : 

445 REM ***DISPLAV RISPOSTA*** 

443 : 

450 PRINT"TTT'SPC<10>N"*"A" = "E 

460 PRINT"M"SPC< 10 ) "QUAL"E'IL RISULTATO GIUSTO? " 

470 PRINT"M"SPC<10)"IL RISULTATO ESATTO E' "E$ 

480 IFZ$=E$THEN500 

430 GOSUB250 : L=L+1 : FORX=1TO2900 : NEXT : GOSUB310-: GOTO600 

494 : 

495 REM ***EFFETTI IN CASO DI RISPOSTA ESATTA*** 


436 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

614 

620 

625 

630 

640 

650 

660 

665 

670 

675 


FOR I = 1T04 : POKESC, 8 ■' POKEB0,3 : FORX= 1 TO 100 : NEXT 
POKESC,7 :POKEB0,7 :F0RX=1TQ75:NEXT:NEXT 
K=K+1 :POKESC,14 :POKEBO,14 :GOSUB200 
IF K > 3 T H E N G 0 S U E' 2 2 0 
IFK>7THENG0SUB210 
IFK<10THENPOKESC,14 :G0T0570 

G0SUB230 : T5=T5-50 : GOSUB200:GOSUB220 ; GOSUB210 ; GOSUB230 : T5=T5+50:GOTO600 
M-M-3 : FOR1=1TOS : XX=PEEK<X1> ; XX=XX-3:IFXX>0THEN53Q 
POKEXS,0 : XX=XX+255 

POKEX1,XX :P0KEX2,XX :POKEXS,XX :NEXT:GOSUB310 
GETZ$ : IFZ$O n "THEN60G 
NEXTJ:GOT0790 

REM ***INIZIALIZZAZIONE LOOP PRINCIPALE*** 

POKESC, 14 : POKEBO, 14 : POKEXS, 7 : P0KEX1,32 : P0KEX2,32 •' POKEXS, 32 : M=34 : K=0 : L=0 
G0SUE310 : POKESP, 7 
P0KE53283,7 ; P0KE646,0 
GOT0330 

REM ***INIZIO GIOCO*** 
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CBM64 







680 

690 

700 

710 

720 

730 

740 

745 

750 

760 

770 

780 

784 

785 
790 
800 
81© 
820 
330 

832 

833 

834 

835 
840 
850 
860 
865 
870 
875 

878 

879 

880 
390 
900 
910 
920 


POKEBO , 5 : PQKESC, 5 : P0KE646, 0 ■ PRI NT " ITOBHftlUtiftftKCQN QUALE NUMERO" 
PRINT : PRINT"HMfv'UOI ESERCITARTI? <1-9)" 

GETN$ : IFN$=""THEN70O 

N=VAL <N$): IFN<1ORN>9THEN700 

PR I NT " WBWWfiJPil'/UO I LA TABELLINA? <S/N>" 

GETZ$ : IFZ$=""THEN730 
IFZ$="N"THEN620 
I FZ$0 " S " ANDZ$<> " N " THEN730 

PR I NT " 73" : FGRX=0TG9 : FRI NT : PR INTSPC < 15 ) N " * " X " = " N*X : NE NT 
PRINT ; PRINTSPC<2) "PREMI LA BARRA [SPAZIO] PER CONTINUARE" 
GETZ$ : IFZ$=""THEN770 
GOTO620 

REM ***FINE*** 


F'R I NT " 73" : POKESP, U 

pr i nt" mmmm" spc< s ) " i risultati esatti sono m k 
PRINT ; PRINTSPC<8>"l RISULTATI SBAGLIATI SONO "L 
PRINT : PRINTSPC<S) "SEI BRAVO AL "10*K" X" 

IFK<3THENPRINT"SEI PROPRIO UNA FRANA!" 

IFKO-3ANDKC5THENPRI NT 1 " POTRESTI MI GL I ORARE ! " 

IFK>5ANDKC8THENPRINT"DAI,CHE VAI BENINO..." 


IFIOSTHENF'RINT"SEI UNA BOMBA!!!" . 

pr i nt " mmmm'' spc < 7 > " vuo i r i provare? 
GETZ$ : IFZ$=""THEN85G 
I FZ$<> " S " ANDZf-O " N " THEN050 
I FZ$="S"THEN670 
END 


< S/N ) 


II 


REM ***INIZIALIZZAZIONE COSTANTI E VARIABILI*** 


XS=53264:T5=120 FORI=0TO2 : POKE2040+1,192 :P0KE53287+1,7•NEXT: NI=53248 
P0KE53249,64 : P0KE53251,105 • PGKE53253, 144 : SF-53269 •' PQKE53271,7 : P0KE53277, 
P0KE53275,7 : P0KE53276,7 : BO=53280 '■ POKEBO, 6 •’ SC=53231 : N3=53252 : N2=53250 
P0KE532852 : SU=54272 DIMT1 < 12 > , T2 < 12.:', T3< 12): POKESC, 6 : POKESP, O 


925 : 

930 REM ***STAMPA BEL TITOLO*** 

935 • 

940 pr i nt "spc < 5 > "****************************** " 

950 'PRINTSPC <5 >"******************************" 

960 PRINTSPC< 5 >"**"SPC (26 >"** 

970 PRINTSPC< 5 )"**"SPC < 26 )"** 

980 F'R I NT SPC •:! 5 ) " ** " SPC C 4 ) " T A B E L L I N E "SPC< 4 )"** 

990 PRINTSPC< 5 )"**"SPC( 26 )"** 

1000 PRINTSPC< 5 )"**"SPC <5 >"S P A Z I A L I "SPCC 5 )"** 

1010 PRINTSPC <5 >"**"SPC< 26 )"** 

1020 PRINTSPC < 5 )"**"SPC <26 >"** 

103 O PRINTSPC <5 >"******************************" 

1040 PRINTSPC< 5 >"******************************" 

1043 : 

1045 REM ***LETTURA DATA SF’RITE ED EFFETTI SONORI*** 

1048 : 

1050 POR I = 0 TO 63 : READDT : F'OKE 12288 + 1 , DT : NEXT 
106 O FORI = 1 TU 12 :READT 1 <I):NEXT 
1070 FORI = 1 TO 12 : REABT 2 <I) : NEXT 
1 OSO FORI = 1 TO 12 :READT 3 <I):NEXT 

109 O PRINT")!WB^»Ì*»»*rVUOI LE ISTRUZIONI? <S/N>" 

11 U 0 GETZ$: I FZ$= ""THEN 1100 
1110 IFZ*="S"THEN 1190 
1120 GOTO 670 

1124 : 

1125 REM ***DATA SF'RITE ED EFFETTI SONORI*** 

1128 : 

1130 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,20,0,0,20,0,0,84,9,35,84,42,170,169 
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114Q BfiTfi 176 .• 170 .• 1 69 , 42 

1150 BfiTfi170,1 69 , 9 ,35,84,0,0,34,0,0.20,0,0,20,0,0,4,0,0,0,0,0,0,0,0,0,0,0,0,O 
1160 BfiTfì33,44,0,44,50,0,50,56,67,56,44,0 
1170 BfiTfi33,44,0,44,50,0,50,56,0,0,44,0 
1130 BfiTfiU,67, 0,0, 50,0, 53,56,0,0,44,0 
1183 : 

1130 REM ***ISTRUZIONI*** 

1195 : 

12U0 PORESU, 5 PuKEBU,5 : P0KE646,U 

1210 F'R 1 NT"nPMPMWPl. CON QUESTO GIOCO TI ESERCITERAI 
1220 FRINT" SULLE TfiBELLINE." 

1230 FRINT"2. LEGGI Lfi BONANBA IN FONBG ALLO" 

1240 FRINT" SCHERMO." 

.'250 FRI NT "3. SU OGNI MISSILE C'E'UNfi RISPOSTA. " 

1270 FRINT"4. SCEGLI fi, B,0 C." 

1230 FRINT" PMPM«HFREMI Lfi BARRA [SPAZIO] PER PROSEGUIRE" 

1.290 GETZ* : IFZ*=""THEN1290 
1 3G0 GOTO670 
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ZX81/16K 


9 

9 


li 




Tiro alle anatre 

Siete appostati sulla riva di un laghetto: la luna splende nel cielo... ma ecco un'anatra che sta nuotan¬ 
do!!! 

Dovete cercare di colpirla evitando di prendere "la luna" che altrimenti.... cadrà nel lago. 

Cinque tentativi (due colpi ciascuno per ognuno dei quali viene richiesto di inserire l'angolo di tiro) a vo¬ 
stra disposizione. 

Variabili 

AC = numero anatre colpite 

LC = numero lune colpite 

C = numero colpi 

T = numero tentativi 

A = posizione dell'anatra 

L = posizione luna 

B =NU numero dei tiri (102) 

AN =angolo di tiro (compreso tra 45 e 85 gradi) 



9 

9 

# 

9 

9 



1 

2 
3 
4. 

5 

6 
7 

e 

10 

11 

12 
13 
20 
30 
40 

45 

46 


REM ** 

REM * * 

REM ** 

REM ** 

REM * * 

REM ** 

REM ** 

REM 

LET RC 
LET LC 
LET C- 
POR T = 

CLS 

LET R =INT (RNDJ16)+ 12 
LET L=INT (RND+7)+12 
LET L2=L*2 
LET R2=R*2 


********************* 

* * 

TIRO RLLE RNRTRE ** 

* * 

ZX-81 16K ** 

* * 

**************+***** 

= 0 

= 0 
^0 

1 TO 5 


9 

50 

PRINT 

**T IRÒ = " 


60 

PRINT 

"RNG.?" 


70 

PRINT 

RT 

0,25;RC;"RNRTRE" 


80 

PRINT 

RT 

1,25,LC;"LUNE" 


90 

PRINT 

RT 

2,25,C;"COLPI" 

* » 

100 

PRINT 

RT 

1, L ; *V" 


1 10 

PRINT 

RT 

2,L; "I " 


120 

PRINT 

RT 

3,L; "V 

21 ,0;". 


130 

PRINT 

RT 

9 

140 

PRINT 

RT 

20 , R, " -i S" 

150 

PRINT 

RT 

21 , R, " 9" ; CHR $ (T + 


156) ; 

’T" 



160 

FOR B 

= 1 TO 2 

9 

170 

PRINT 

RT 

0,6, B 

180 

PRINT 

RT 

1 ,6;"? " 

190 

INPUT 

RN 



200 

IF RN > 85 

OR RN < 45 THEN GOTO 

9 

190 

205 

PRINT 

RT 

1,6, RN 

210 

FOR I 

=® TO 100 


220 

LET X 

= INT 

(0.014*1 * (90-RN) ) 


230 LET Y = INT l I * ( 100-I) *0.0172 

) 

240 PLOT X.Y 

250 IF X < L2 OR X>L2 + 1 OR Y>41 O 
R Y<36 THEN GOTO 400 
270 LET LC = LC + 1 
280 FOR Z=1 TO 18 
290 PRINT RT Z,L;" ** 

300 PRINT RT Z + 1 , L ; "J*" 

310 PRINT RT Z+2,L, ‘•| " 

320 PRINT RT Z+3,L;"V 
330 NEXT Z 
340 LET C=C+1 
350 PRINT RT 2,25; C. 

360 GOTO 530 

400 IF X < R2 OR X>R2+9 OR Y>3 TH 
EN GOTO 495 

410 IF X =R2 OR X=R2 + 1 OR X=R2+© 

OR X =R2 +9 THEN GOTO 450 

420 PRINT RT 15,10;"COLPITR" 

430 LET RC=RC+1 
432 LET C-C + 1 
434 PRINT RT 2,25;C 
440 GOTO 530 

450 PRINT RT 20,R-4; “OUCH” 

491 GOTO 500 
495 NEXT I 

497 PRINT RT 15,10;"MRNCRTR" 

500 LET C=C + 1 

505 PRINT RT 2,25;C 

510 PRUSE 150 

520 NEXT B 

530 PRUSE 150 

540 NEXT T 

550 CLS _ 

560 PRINT RT 10,10> "GBfflBi" 
570 PRINT RT 12,3;" H RICOLPITO 
”;RC;“ RNRTRE" 
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Il fiume 


Un programma dedicato ai piu piccoli. 

Vi trovate sulla riva sinistra di un fiume: risolvendo dei quesiti aritmetici dovete arrivare, saltando su del¬ 
le pietre , sull 'altra sponda dove vi aspetta un forziere colmo di monete d'oro. 

È necessario però che siate il piu rapidi possibile nel rispondere ai quesiti posti: piu passa il tempo e piu le 
monete diminuiscono!!! 

Se dopo 20 domande non siete ancora riusciti ad attraversare il fiume o se tutte le monete d oro sono 
esaurite.... beh! !.... vi farete un bel bagno!!!! 

VARIABILI 

P = pietra su cui si trova il giocatore 
MO = numero delle monete 
D = numero delle domande 


u M E 


** 
* * 
* * 
* * 

SCUOLA ** 
* * 


16K 



1 REM *********************** 

2 REM ** ** 

3 REM ** IL FI 

4. REM ** 

5 REM ** ZX - 81 

6 REM ** 

7 REM ** LIST 

8 REM ** 

9 REM *********************** 

10 REM 

15 LET P=0 

20 LET MG=100 . 

30 PRINTflT 3,3; •*. .&M. .9HH. •* 

.munuii » » - un 
■ ssewste • • «BlBw? * / “LI 

4-0 PRIKT RT 2,29;" 

50 PRINT AT 4,29; "1 
60 LET X =0 
70 GOSUB 500 
30 FOR D = 1 TO 20 

90 LET fl = 2 + INT ( RND *8) 

100 LET B=2+INT (RND»8) 

110 LET C=A*B 

120 PRINT RT 5,0,D,TAB 2;") **; R 

** r ~> — *• - Q - 

125 ÌF C <10 THEN PRINT ” " 

130 PRINT RT 5,15;" 

14-0 LET K$ = INKEY$ 

150 IP THEN GOTO 310 

155 PRINT RT 5,8;B 

160 IF CODE K$-28(>B THEN GOTO 


280 

170 PRINT RT 5,15;"ESATTO" 

180 LET P=P+1 

190 IF P<>6 THEN GOTO 220 
200 PRINT RT 6,0;"HRI ";MO," MO 
JETE + "; 100-MO; •' RANOCCHIE” 

210 STOP 
220 LET X=5*P 
230 FOR 0=0 TO 2 
24-0 PRINT RT U,X-5;" 

250 NEXT U 
260 GOSUB 500 
270 GOTO 290 

200 PRINT RT 5,15;"RISPOSTO = " 
, B 

300 PROSE 300 

310 LEX HO =MO — 1 

315 IF MO =0 THEN GOTO 34-0 

320 PRINT RT 3,29;" " ; MO 

325 IF MO <10 THEN PRINT " " 

326 IF K$=" " THEN GOTO 14-0 
330 NEXT D 

34.0 PRINT RT 3,3;"*- 


350 PRINT RT 6,0; 
- SEI SCIUOLRTO EE> 
BRGNRTO..." 

360 STOP 
500 PRINT RT 
510 PRINT RT 
520 PRINT RT 
530 RETURN 


CHE 5FORTUNR 
ORR SEI TUTTO 


0 

1 


X + 
X; 


2, X; " 


■K 






Tiro a segno 

Sullo schermo un asterisco si muove da sinistra verso destra sotto una fila di mumeri (da 1 a 9). 

Scopo del gioco è cercare di colpirlo premendo il tasto corrispondente al numero sotto il quale sta pas¬ 
sando 


1 REM »» TIRO A SEGNO 

2 REM 9* 2X-» 1 1K 

3 REM 

10 LET C=0 

20 PRINT __ 

30 PRINT 


** 


INT RT 4- , 0; " 
50 PRINT RT 4,25; 
60 FOR T = 1 TO 10 
65 LET P=0 
70 PRINT RT 3,0 



, S; T ; TRB 12; 


110 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

20® 


PRINT RT 3,P;"M" 

LET N=CODE INKEY*-28 

IF N <1 OR N>9 THEN GOTO 220 

PRINT RT 3,N*3;”B" 

IF Ni3 < > P + l THE N GOTO 210 
PRINT RT 4,12; 

LET C=C+1 
PRINT RT 4,30;C 
GOTO 240 

TP INKEYS< >"“ THEN GOTO 210 
LET P=P-fl 

IF P < > 31 THEN GOTO 110 
PRUSE 250 
NEXT T 

PRINT RT 4,12; "| 
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Viaggio nello spazio 

Con la vostra navetta spaziale dovete attraversare la galassia evitando di scontrarvi con i pianeti e sen¬ 
za terminare il carburante. 

Selezionate il livello, di difficoltà (1-3): a seconda della vostra scelta varierà la velocità dei pianeti 
(1= lenta) 

Usare i tasti cursore per il movimento della vostra navetta. 



3 

FOR I = 0 TQ 15 


200 

FOR I = 790 TO 815 


5 

READ Al 


201 

READ A 


10 

POKE <1600 + I) 

, Al 

203 

POKE I,A 


15 

NEXT I 


204 

NEXT 


20 

DIM C(30),D(30) 


300 

HOME : HTAB 10: VTAB 5: PRINT 

100 

FOR I = 768 TO 

781 

LECT 

THE LEVEL <1-3): 

INPUT A*: 

101 

READ A 


A = 

VAL (A$) 


102 

POKE I,A 


301 

IF A = 1 THEN CT = 

223 

103 

NEXT I 


302 

IF A = 2 THEN CT = 

173 


dO 




















303 

IF A = 3 THEN CT = 

123 

720 

IF B < 5 THEN B = 5 


304 

O 

II 

I 

u 



730 

IF B = 9 OR B = 13 THEN B = 

b + 1 

320 

HOME 






330 

FOR E = 1 TG 

23 


740 

C(E) = B 


340 

GOSUB 710 



745 

IF CH = 0 THEN HTAB B: VTAB 

23: PR 

345 

FRI NT 






350 

NEXT E 



I NT 



352 

FOR I * 1 TO 

23 


750 

IF CH = 1 THEN HTAB 1: VTAB 

23: PR 

354 

D(I) = C(I) 






356 

NEXT I 



I NT 

" " HTAB B: VTAB 23: 

PRINT 

400 

A = 0: X = 1 : T 

= 0: S 

= 0 




405 

L = 2 



#" ; 

HTAB 1: VTAB 24: PRINT "FUEL: 

CT 

410 

FOR E = 1 TO 

23 


» 



41 1 

CALL 768:A = 

PEEI 

( 784) 

755 

CT = CT - 1: IF CT < 1 THEN 

GOTO 

412 

IF A = 149 THEN X 

+ 

X 

II 

850 



413 

IF A = 136 THEN X 

= X - 1 

760 

RETURN 


414 

IF X < = 0 

THEN X 

= 1 

800 

HTAB (X - 2) : VTAB (1) 


420 

HTAB ( X ): VTAB (1) 


810 

PRINT ")) BOM (( ": CALL 790:CT 

= CT 

425 

PRINT " = :CH = 1 


- 1 

) 


430 

IF X :> =41 

THEN 

1 ooo 

820 

-i 

II 

H 

+ 

X 

II 

>-* 


435 

CALL 1600 



830 

FOR W = 1 TO 800 


440 

IF D(L ) = X 

OR D(L) = X + 1 THEN 

840 

NEXT W 


GOSUB 800 



845 

RETURN 


447 

L = L + 1 



850 

HTAB 1: VTAB 24: PRINT " 

"; : HTA 

450 

B1 = PEEK (1792) 





455 

IF B1 < 177 

OR E< 1 

> 179 THEN 535 

B 5: 

VTAB 24: PRINT "YOUR FUEL IS 

OVER 

460 

B1 = B1 — 176 


‘ 

! ! ! 

TRY AGAIN! !" 


480 

ON B1 GOTO 490.500 

,510 

860 

FOR F = 1 TO 1000: NEXT F 


490 

X = X - 1 



870 

GOTO 300 


492 

IF X < =0 

THEN X 

= 0 

1000 

T = T + 1 


495 

GOTO 535 



1050 

VTAB 24: HTAB 5: PRINT "YOU 

SUCC 

500 

X = X + 1 



ESSES IN ";T;" TIMES" 


505 

GOTO 535 



1070 

X = 1 : T = 0 : 


510 

X = X + 2 



1130 

FOR W = 1 TO 1000 


520 

GOTO 535 



1140 

NEXT W 


530 

X = X + 1 



1 160 

GOTO 300 


535 

GOSUB 710 



2000 

DATA 169,7,141,00,7,32.67, 

240, 1 

537 

PRINT 



76, 1 

,96,141,0,7,96 


540 

NEXT E 



2010 

DATA 50 


542 

FOR I = 1 TO 

23 


2020 

DATA 32,67,240,170,144,3,2 

34,23 

544 

D(I) = C(I) 



4,23 

4,138,141,16,3,96 


546 

NEXT I 



2030 

DATA 169,15,133,96,160,19, 

162,1 

548 

L = 2 



4,152,32,168,252,173,48,192,202,2 


550 

GOTO 410 



08,2 

46,136,208,241,198,96,208,235 


710 

B = INT ( RND (1 * 

70) * 40) 

, 96 







7 

I 




















Tron II 

Finalmente un gioco per 2 persone do implementare sul VIC 20. 

Basato sulla famosa corsa di motociclette nel videogioco piu entusiasmante del film TRON, il programma 
gira sulla versione inespansa del VIC ed è composto da 2 listati. 

11 primo lancia il secondo in autostart. 

Non vorremmo sembrare ripetitivi / ma tale tecnica risulta ostica per molti lettori / perciò , una volta per 
tutte, spieghiamo il suo funzionamento. 

Si digita il primo programma e senza dare il RU N lo si registra su nastro. 

Si spegne il computer , si stacca il registratore con il tasto STOP. 

Attenzione però a non spegnere il computer se prima non ha finito di registrare il programma sul nastro. 
Adesso riaccendete il computer e digitate la seconda parte del programma. Senza dare il RUN registra¬ 
te anche questo sul nastro di seguito a quello precedente. 

Poi fate tornare indietro il nastro fino all'inizio della prima parte, caricate la prima parte e date il RUN. 
Se non ci sono errori , dopo qualche attimo vedrete il registratore fermarsi da solo per qualche secondo e 
poi ripartire per caricare la seconda parte senza alcun intervento manuale da parte vostra. 

Speriamo bene!!! 

Lo scopo del gioco è percorrere con delle strane moto che girano ad angolo invece che curvare normal¬ 
mente,, un labirinto a quadretti!!! Senza oltrepassare mai il punto in cui la vostra moto o quella dell'av¬ 
versario abbiano già lasciato la loro scia mortale. 

Si dirigono le moto usando i tasti cursore per una ed i tasti SHIFTe CK (Commodore) per l'altra. 

Tali tasti fanno "curvare" la moto in segno orario o antiorario. 

12 giocatori identificano TRON e HMCP (microcomputer). Si vince dopo 10 tentativi. 

La struttura del programma principale è la seguente: 

Cambia i colori dello schermo e definisce le variabili. 

Definisce i caratteri grafici. 

Controllo movimenti del giocatore TRON e test per collisione. 

Controllo movimenti del giocatore MCP e test per collisione. 

Routines di movimento. 

Routines di collisione. 

Stampa il vincitore e richiesta per un nuovo gioco. 


10 

15-45 

70-95 

100-125 

500-630 

1000-2010 

2340-2900 


10 PRINT"ntì TRON II" 

20 PRINT"imm UN ATTIMO,PREGO!!" 

35 PR I NTCHR-f < 142 > CHR* < 3 > 

fi 28 ' P0KE56,23 •• F0RI=28T057 : FORJ=0TO7 : REABN • PQKE7168+8*I+J, N : NEXT : NEXT 

45 P0KE631,131 PQKE632,13: poKE 188,2: END 
50 DAT A198,230,246,222,206,188,188,198 

55 DATA126,126,16,16,24,24,24,24,248,200,200,243,240,216,216,216 

60 DATA252,252,204,204,204,204,252,252,0,0,0,0,0,0,0,0 

65 DATA©,24,24,0,0,24,24,0,138,238,254,214,138,138,138,138 

70 DHTH254,254,138,132,132,198,254,254,252,252,204,204,252,132,132,132 

H DR THl^, 12,12,12,255,255,12,12,24,36,66,90,213,219,66,126 

60 DATA126,66,90,90,219,195,36,24,12,252,130,185, 185,130,252,12 

6-j DhTh12,63,ò5, 157, 157,65,63, 12,4,4, 168,168, 169, 169,40,40 

80 DATA40,40,42,42,106,106,4,4,4,4,42,42,106,106,40,40 

35 BATA40,40,168,168,163, 169,4,4,4,4,170,170,170,170,4,4,40,40,40,40,105,105,40, 
40 

100 DATA 126,126, 102,102, 102, 102,126,126,56,56,24,24,24,24,60,60 
105 DATA126,126,6,126,126,36,126,126,126,126,6,126,126,6,126,126 
110 BATA36,96, 108,108, 126, 126, 12,12, 126,126,96,126,126,6,126,126 
115 DATAI26, 126,96,126, 126, 102,-126,126,126,126,102,12,24,48,48,48 
120 DATA126,126,102,126,126,102,126,126,126,126,102,126,126,6,126,126 


READV. 













Vie 20 






5 PGKE3687S,10-P0KE36369,255 :CLR:PRINTCHR*<147 >CHR$< 8> 

10 P0KE36879,24 :PQKE36365,200 :CO=30720:M=7904:T=7970:Tl=l:Ml=l=PRINT".T' 

15 FORI =7724T08163 ■' POKE 1,37: POKEI+C0,0 : NEXT 

20 POKE7702,44 :POKE7702+CO.12:P0KE7723,42 :P0KE7723+C0,12:P0KE8164,43:P0KE3164+CO 
, 12 

25 P0KE8185,45 :P0KE3185+CO,12 

30 FORI=7703TO7722 :POKE1,46:POKEI+CO,12 :POKE1+462,46 :POKEI+462+C0,12:NEXT 

35 FORI=7724T08142STEP22:POKE1,47:POKEI+C0,12:POKE1+21,47:POKE1+21+00,12 = NEXT 

40 PQKEM-1,46 :POKEM-l+CQ,10 :POKEM,40 :POKEM+CO,0 :POKET-1,46 

43 POKET-1+00,14 : POKET,40 : POKET+00,0 

45 POKE 198, 0 : PR I NT " iJkJU] 1 •+£ ! +CHR$ < 34 >+"#$" 

50 P0KE36865,38 :PRINT"3"TRE C7 >TSTRBCI7)MS 
70 P0KE36876,225 R=PEEK C 653 ;■ 

80 IFfl=2THENT2=-22* C T1=-1) +1* C T1=-22 > +22* C T1 = 1>-1*(T1=22 >:GOTO90 
85 IFR=1THENT2--22*CT1 = 1 > -1*<T1=-22 > +22* C T1=-1> +1* C T1=22 >:GOTO90 
83 T2=T1 

90 IFPEEK C T+T2 >037THEN1000 
95 GGSUB500:P0KE36376,0 :T1=T2 
100 B=PEEK<197) 

105 IFB=31THENM2--22*CMI=-1) +1*<M1=-22>+22*C M1 = 1 ) -1 * C M1 =22 ) : GOTO113 

115 IFB=23THENM2=-22*CM1=1)-1*C M1=-22 > +22* < M1=-1> +1*C M1=22>: GOTO118 

116 M2=M1 

118 I FPEEK C M+M2>O37THEN2000 
125 GGSUB600:M1=M2:GOTO70 
500 RESTORE 
505 RERBR,E,P,OH 

510 IFT1=RRNBT2=BTHENP0KET, P:POKET+CO, 14 :T=T+E:POKET,OH :POKET+CO,0 : RETURN 
520 GQTQ505 

530 ERTR1,1,46,40,-1,-1,46,41,22,22,47,39,-22,-22,47,38 
535 DRTR1,-22,45,38,1,22, 42,39,-1,-22,43,38,-1,22,44,39 
540 DRTR22,-1,45,41,22,1,43,40,-22,-1,42,41,-22,1,44,40 
600 RESTORE 
610 RERBR,B,P,OH 

620 IFM1=RRNBM2=BTHENPGKEM, P:POKEM+CO, 10 : M=M+B:POKEM, OH :POKEM+CO,0 : RETURN 
630 GOTO610 

1000 POKET+CO,2 :P0KE36874,200 :FORI = 1TO4000:NEXT:PQKE36874,0 :P0KE36376,0 :MS=MS+1 = 

IFMS=10THEN2500 
1010 GOTO10 

2000 POKEM+CO,2 :P0KE36874,200 :FORI = 1TO4000:NEXT:P0KE36874,0 :TS=TS+1:IFTS=10THEN2 
500 

2010 GOTO10 

2340 IFM3>TSTHENPRINT"31LI"CHRS < 34)"#$" 

2350 IFTS>MSTHENPRINT" J T+£" 

2360 GOTO2300 A 

2500 PRINT"7W k]«1fii^a£ 11" 

2510 PRINT" m \ 

2525 PRINT"WWaiL VINCITORE E' 

2540 IFMS>TSTHENPRINT"SILI "CHR$C34>"#$" 

2560 IFTS>MSTHENPRINT"13t*£" 

2800 PRINT"WW«WaGIOCHI RNCORR ? CS/N>" 

2810 GETX$ : IFX$="S"THENRIJN m 

2820 IFX$<>"N"THEN2810 
2900 3VS64802 
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English tester 

English Tester, ovvero come esercitarsi nello lingua straniera con il Computer!! 

Il programma è strutturato secondo un MENU che prevede la scelta tra cinque opzioni: 

1) Vocaboli - traduzione dall'Italiano di vocaboli vari 

2) Verbi - traduzione dall'italiano di "voci verbali" varie 

3) Paradigmi 1 - traduzione dall'italiano di verbi 

4) Paradigmi 2 - Traduzione dall'italiano di verbi 

5) Traduzione - dall'Inglese all'Italiano. Vengono posti in considerazione tutti i dati relativi alle prece¬ 
denti opzioni. 

Naturalmente si tratta di un programma "SUGGERIMENTO", in quanto ognuno di voi potrà, interve¬ 
nendo nelle linee dei DA TA, modificare le opzioni a proprio piacimento o adattare lo stesso programma 
ad altre lingue straniere. 


1 REM 

2 REM * * 

3 REM * ENGLISH TESTER » 

4- REM * # 

5 REM * ZX-SPECTRUM 48K * 

6 REM * * 

7 REM * LIST - SCUOLR * 

0 REM * * 

9 REM ******************-**-*** 

10 REM 

15 GO SUB 5000 

20 BORDER 6 : PAPER 6: INK 1 

30 CLS 

4-5 GO SUB 7000 

50 PRINT AT 2,11;" MENU' " 

60 PRINT RT 6,2; "D UOCABOLI"; 
AT 9,2;"2) UERBI";AT 12,2;"3) PA 
RADIGMI 1" ; AT 15,2;"4) PARADIGMI 
2“;AT 18 ,2; " 5 > TRADUZIONE" 

70 PRINT AT 21,0;"SCELTA 7 tl- 
5) " 

75 REM 

00 REM UARIABILI 

65 REM 

90 IF INKEY*="1" THEN LET I*»" 
UOCABOLI”: LET R=1000: GO TO 150 
100 IF INKEY*="2 M THEN LET I*=" 
UERBI": LET R=2000: GO TO 150 
110 IF INKEY*="3" THEN LET I**" 
PARADIGMI 1": LET R=3000: GO TO 
150 

120 IF INKEY 8 = "4- " THEN LET I$ = " 
PARADIGMI 2": LET R=4-000: GO TO 
150 

130 IF INKEY $ = " 5 " THEN LET I* = " 
TRADUZIONE": LET R = INT C(RND*2)* 
1) *1000: LET T R =0 : LET NT=500 : G 
O TO 160 

14-0 GO TO 90 

150 LET TR =500: LET NT=0 
160 LET PUNTI=0 : LET 0 = 0 
100 PAUSE 50 
190 CLS 
195 REM 

200 REM ISTRUZIONI 
205 REM 

210 LET Y= ( (32-LEN I*)-7)/'2: PR 

INT AT 0,Y;H; M TESTER": PRINT A 
T 1,Y;: FOR N=1 TO LEN 1**7: PRI 
NT ; NEXT N. PR INT RT 3,9; M I 

STRUZIONI" ; AT 4. , G , 

220 IF NT =500 THEN LET INO 

LESE": LET U*="ITALIANO": GO TO 
24-0 

230 LET K* = "ITALIANO": LET U* = ” 
INGLESE" 

24-0 PRINT AT 7,0; "QUANDO UIENE 
UISUALIZZATO UN UO-CABOLO ";K>;" 

DIGITARE IL COR-RISPONDENTE ;U 
*;" POI PREMERE * 'ENTER' #" ‘ 

260 PRINT AT 20,5; FLASH 1;"QUA 
NTE DOMANDE 7" _ _ 

270 INPUT DQ: IF DQ<1 THEN GO T 


O 270 

280 PRINT AT 20,1;"PREMERE 'ENT 
ER' PER CONTINUARE": INPUT Z* 

290 REM 

300 REM LOOP PRINCIPALE 
310 REM 
320 CLS 

330 PRINT AT 0,Y;I*; " TESTE R" : 
PRINT AT 1,Y;: FOR N-l TO LEN I» 
♦7. PRINT NEXT N 

333 IF R »1000 THEN LET RD*INT C 
RND*55) -fi 

335 IF R =2000 THEN LET RD^INT ( 
RND*53)*1 

34-0 IF R =3000 OR R =4-000 THEN LE 
T RD = INT (RND *16) *1 
370 RESTORE R+NT 

380 FOR E = 1 TO RD: READ E*: NEX 
T E 

4-10 RESTORE R+TR 

4-20 FOR G = 1 TO RD : READ G|: NEX 
T G 

4-30 LET 0=0*1 

4-4-0 PRINT AT 6,0; "DOMANDA IN 

UERSE 1;O;AT 6,23; INUERSE 0;"PU 
NT I "; INUERSE 1;PUNTI;AT 3,2; I 
NUERSE 0;"PREMERE 'G' PER LA RIS 
POSTA" 

4-50 PRINT AT 10,0;E*;"="; 

4-60 POKE 23658,8: INPUT A*: IF 
A*="G" THEN PRINT "RICHIESTA RIS 
POSTA": GO TO 4-70 
4.65 PRINT A* 

4-70 FOR N = 1 TO 32: PRINT : 

NEXT N 
4-75 REM 

4-80 REM CONTROLLO RISPOSTA 
485 REM 

490 IF R$=G$ THEN LET PUNTI=PUN 
TI*1: PRINT TAB 12;"ESATTO !" : PR 
INT TAB 11; PAUSE 50 

: GO TO 590 

500 IF A $ = "G" OR A$*”RICHIESTA 
RISPOSTA" THEN PRINT TAB 12;"RIS 
POSTA": PRINT TAB 11; 

“’*: PRINT '"LA RISPOSTA ERA : ", 

G % : GO TO 580 

560 PRINT TAB 12;"SBAGLIATO!": 
PRINT TAB 11; 

570 PRINT AT 16,0;"NON ERA ";A* 
;",";AT 18,0,"BENSÌ': ";g* 

580 PRINT AT 21,1; INUERSE 1;"P 
REMERE 'ENTER' PER CONTINUARE": 
INPUT Z* 

590 IF GODO THEN GO TO 290 
595 REM 

600 REM RISULTATI 
605 REM 

610 IF PUNTI> DO/2 THEN LET C* = " 
NON MALE" 

620 IF PUNTI=DQ THEN LET C*="BE 
NE ! ! ! " 

630 IF PUNTI<DQ/2 THEN LET C* = " 
SCARSO" 
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64.0 IF PUNTI«DO/2 THEN LET C*-" 
DISCRETO” 

650 CLS _ 

660 PRINT RT 0 » 12: "RISULTHTI" 1 R 
T 1, 11; 

670 PRINT RT 5,0; C*; " 

600 PRINT RT 7,0; “PUNTEttOIO * ” 
; PUNTI; ” SU 0 

600 PRINT RT 10,0;"UN RLTRO TCS 
T 7 CS/N) '■ 

700 IF INKEY*="S" THEN RUN 50 
710 IF INKEY*="N" THEN GO TO 99 
9 

720 GO TO 700 

909 CLS : PRINT RT 10,5;"SEMPRE 
R DISPOSIZIONE...": PAUSE 100: 
BORDER 0: PRPER 0: INK 0: CLS 
1000 REM 

1005 REM UOCRB.ITRLIRNO 
1008 REM 

1010 DRTR "GENITORI","NETROPOLIT 
RNR","PRANZO","COLAZIONE","BURRO 
" , "ZUCCHERO" , r, CENR" , "SALE* , "PART 
ENZR","RRRIUO","BI3TECCR","BRGRG 
LIO","CRRTOLINR","SRLSR","POMODO 
RO","UOUO","RIUISTR","MARMELLATA 
•' , "MRRM . ARANCIA" , "LATTE" , "BISCOT 
TO","INSALATA","FRUTTA"."DOLCI" 
1020 DRTR "FARMACIA","GELATO", "D 
OTTORE","POSACENERE","SALSI CCI A" 

, "PANE","GITA","CONTO","LIBRERIA 
”,"CAMERIERE”,"BIBLIOTECA","TORT 
A" , "UEDUTR" , "FRANCOBOLLO" , f, RUTOS 
TRADA","SENSO UNICO","MONETE"„ "P 
IATTAFÓRMR","PISCINA","STAZIONE" 
, "BIGLIETTO","UOLO","DOGANA","AN 
ANAS","DONO","BANCA","GIORNALE", 
"OROLOGIO","SUEGLIA","PENNA","CA 
MBIO DENARO" 

14-50 REM 

1500 REM UOCRB.INGLESE 
1505 REM 

1510 DATA "PRRENTS","UND ERGR OUND 
","LUNCH","BREAKFAST","BUTTER"," 
SUGAR","SUPPER","SALT","DEPARTUR 
E","ARRIUAL","STEAK","LUGGRSE"," 
POSTCARD","SAUCE","TOMATO","EGG" 
,"MAGAZINE","JAM","MARMELADE","M 
SuÉETS" I5CUrr "'"S hLAD","ERUIT"," 

1520 DATA "CHEMIST'S","ICE-CREAM 
","DOCTOR","ASH-TRAY"."SAUSAGES" 
, "BREAD" , "TRIP" , "BILL''. "BOOK-SHO 
P" , "UAITER","LIBRARY",*CAKE","UI 
EU" , "STAMP","MOTORUAY","ONE MAY" 
,"COINS”,"PLATFORM","SUIMMING-PO 
OL" ."STATION","TICKET","FLIGHT" . 
"CUSTOMS”,"PINEAPPLE","GIFT","BA 
NK","NEUSPRPER","UATCH","CLOCK", 
"PEN","EXCHANGE" 

1990 REM 
2005 REM 

2010 DATA "ELLA RIMANE","EGLI NO 
N RIMANE","ELLA RIMASE","RIMARRA 
NNO","STANNO PENSANDO","EGLI PEN 
SA” , PENSAI" , "PENSRUAHO" , "STO AN 
DANDO","ESSO UA","ANDASTE'","AND 
ATA","HAI MANGIATO","ELLA STA MA 
NGIANDO","MANGIAMMO'","MRNGERO'” 
, "PRENDETE" ."PRENDONO^ 1 , "PRESERO" 
,"PRESO”,"GIOCANO","ESSA STA'SIC 
CANDO","STAUANO GIOCANDO","GIOCH 

EREMO" _ 

2020 DATA "EGLI E'ANOATO”,"AUEUA 
MO MANGIATO","UEDRETE","AURAI UI 
STO","UEDREI","ELLA ANDREBBE","S 
PRESTI ANDATO","NON MANGIAI",“NO 
N ERI ANDATO", ESSO E ' UENUTO r * , "N 
ON UENISTI","UENNI","NON UERREBB 
ERO","EGLI E^STATO","SIAMO STATI 
" , "ESSO FU UINTO","ESSE F URO NO M 
ANOIRTE","DIREI" AUREI DETTO"," 
POTREI ANDARE","AUREBBERO POTUTO 
D IRE","STUDIERANNO","HANNO STUD 
IATO","CANTEREMMO","CANTERANNO", 
"IO FOSSI","CANTATA","ESSO FU CA 
NTATO","CANTAUI","NON AUREBBERO 
CANTATO" 

24-90 REM 

2500 REM UERBI INGLESI 
2505 REM 

2510 DATA "SHE REMAINS","HE DOES 
NOT REMA IN", "SHE REMA INE3>" , "THE 
Y UILL REMA IN" , 'THEY ARE THINKIN 
G" , "HE THINKS" ,"I THOUGHT","UE T 
HOUGHT " , " I AM GOING","IT GOES",*’ 
YOU UENT","GONE","YOU HAUE EATEN 
" "SHE IS ERTING" "UE RTE" "I SH 


4 YOU TRKÉ" , "THEY +AKE" , 
THEY TOOK","TAKEN","THEY PLAY", 
"SHE IS PLAYINO","THEY UERE PLAY 
INO","UE SHALL PLAY" 

2520 DATA “HE HAS GONE","UE MAD 
EATEN","YOU UILL SEE","YOU UILL 
HAUE SÉEN","I SHOULD SEE","SHE U 
OULD GO","YOU UOULD HAUE GONE"," 

I DID NOT EAT”,"YOU HAD NOT GONE 
” , "IT HAS COME","YOU DID NOT COM 
E","I COME","THEY UOULD NOT COME 
"/'HE HAS BEEN " , "UE HAUE BEEN"," 
IT UAS UON","THEY UERE EATEN",”I 
SHOULD SAY","I SHOULD HAUE SAID 
" ,"I COULD GO" , "THEY COULD HAUE 
SAID","THEY UILL STUDY","THEY HA 
UE STUDIED","UE SHOULD SING”,"TH 
EY UILL SING","I UERE","SUNG","I 
T UAS SUNG", "YOU SONG" , "THE UOU 
LD NOT HAUE SUNG" 

2900 REM 

3000 REM PARADIGMI 1 
3005 REM 

3010 DATA "RIMANERE","ONDARE","P 
ENSARE","PRENDERE","SENTIRE","MA 
NGIARE","GIOCARE","CORRERE","STU 
DIARE”,"PARLARE","DISTRUGGERE"," 
TROUARE","ESTENDERE","ESSERE","R 
IDERE","CAMBIARE" 

3510 DATA "TOREMOIN-ED","TOGO-UE 
NT-GONE","TOTHINK-THOUGHT-THOUGH 
T","TOTAKE-TOOK-TOKEN","TOHEOR-H 
EORD-HEORD","TOEAT-ATE-EATEN","T 
OPLOY-ED","TORUN-RON-RUN","TOSTU 
DY-ED","TOTALK-ED","TODESTROY-ED 
”,"TOFIND—FOUND-FOUND","TOEXTEND 
-ED","TOBE-UOS-UERE-BEEN","TOLOU 
GH-ED","TOCHONGE-ED" 

3900 REM 

4.000 REM PARADIGMI 2 
4.005 REM 

4-010 DATA "UEN IRE ”, "METTERE" , "FA 
RE","PRENDERE","DISEGNARE","TRAS 
CORRERE","SALTARE","CONTROLLARE" 
,"MUOUERSI","UEDERE","SCRIUERE", 
"GUARDARE","PIANGERE","ACCADERE" 
,"DIRE","CAMMINARE" 

4-020 DATA "TOCOME-CAME-COME" , "TO 
PUT-PUT-PUT","TOTAKE-TOOK-TAKEN” 
,"TODRAU-DREU—DROUN","TOSPEND-SP 
ENT -SPENT","TOJUMP-ED","TOCONTR 
OL-ED","TOMOUE-ED","TOSEE-SOU-5E 
EN","TOURITE-UROTE—URITTEN","TOL 
OOK-ED","TOCRY-ED","TOHOPPEN-ED" 
,"TOSOY—SAID—SAID","TOUALK-ED" 
5000 REM 

5005 REM INTRODUZIONE 
5010 REM 

5020 BORDER 3: PAPER 3: INK 4-: C 
LS 

5030 PRINT RT 3,2;"» » »»» »»# 


504-0 PRINT AT 4,2;"» » tt 


5050 PRINT AT 5,2;"» 
5060 PRINT AT 6,2;"» 


tt" 

» »" 
» tt" 


5070 PRINT AT 7,2;"»»» » tttttt tt" 
5090 PRINT AT 12,~ 

»»» » tt»»" 

5090 PRINT AT 13,5,"» 

» tt » » tt" 

5100 PRINT AT 14, 

» » » tttttt" 

5110 PRINT AT 15, 

»»» tt »" 

5120 PRINT AT 16, 
tttttt tttttt tt tt" 

5130 PRINT AT 20, 

N T A" 

5140 PRUSE 180 
5150 CLS 

6000 BORDER 4: PP 
LS 

6010 PRINT AT 3,6 
** ** * **** ** *" 

6020 PRINT AT 4,0;"* 

** ** * **** ** *" 

6030 PRINT AT 5,0;"* 

** * * ***" 

6040 PRINT AT 6,0;"* 

** * * ***♦" 

6050 PRINT AT 7,0;"* 

*** * »***" 

6060 PRINT RT 8,0;"* 

** **** * **** ** *" 

6070 PRINT AT 9,0;"* 

** **** * **** ** *" 


"tttttt 

tttttt 

tt 

tt 

"tt 

tt 

tt 

tt 

" tt 

tt 

tt 

O 

tt 

tt 

O 

» 

"tttttt 

tttttt 

tttttt 

; ; "P 

R E 

s 

E 

R 4 : 

INK 

3 : 

C 

**** 

* * 

* 

** 

**** 

** 

* 

** 

* * 

*** 

* 

* * 

*** 

** 

** 

* * 

** 

** 

* 

* * 

**** 
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*** ***** **** ***** 
6110 PRINT AT 14-,0;" 

***** **** 

*** ***** **** ***** 
6120 PRINT AT 15,0;" 

* 

** 

* ****** 
6130 PRINT AT 16,0;" 

* 

*** 

* * *** ****" 
614-0 PRINT AT 17,0;" 

* 

** 

****** *" 
6150 PRINT AT 18,0;" 

* 

**** 

*** * **** ** * 
6160 PRINT RT 19,0;" 

* 

**** 

*** * **** ** * 
6170 PAUSE 250 

6180 CLS 

6190 RETURN 

7000 REM 

7010 REM SPIEGAZIONE 
7020 REM 

7025 BORDER 6: PAPER 

6: 

INK 1 : 


7030 PRINT RT 1,0;"IL PROGRAMMA 
OFFRE LA POSSIBILI—TR' DI ESERCÌ 
TRRSI NELLR LINGUR INGLESE, MEDI 
RNTE IL METODO DEL-LR TRADUZIONE 
SIMULTRNER." 

704-0 PRINT ' "NEL ORSO CHE SI SC E 
LGRNO LE OP- ZIONI 3 & 4- IMMETTE 
RE I DRTI NELSEGUENTE MODO:" 


'"OERBO REGOLARE = 
TOSTUDY-ED 
UERBO IRREGOLARE 
TODRINK-DRRNK-D 

"N.B. L'INFINITO E' 

_... _ SOLA PAROLA PER GAR 

ANTIRE AI DA-TI MAGGIORE 'SPAZIO 

7070 PRINT '"PREMI ENTER PER INI 
ZIARE": INPUT Z*: CLS 

7000 RETURN 


70S0 PRINT 


RUNK" 

7060 PRINT 
DATO DA UNA 





£?S 
























Labirinto mobile 

Si tratta di un gioco "importato" dagli Stati Uniti d'America dove solo fino a qualche mese fa era molto 
richiesto. 

È stato riadattato alla versione europea del VIC che si differenzia da quella americana per molti aspetti. 
Si tratta di un gioco che può funzionare sia da tastiera che con jovstick ed è basato sulla difficoltà di at¬ 
traversare alcuni corridoi le cui pareti mobili si aprono solo in alcuni momenti, e spesso in concomitanza 
con il passaggio di una piattaforma mobile che occupa l'intera larghezza del corridoio; il tutto con effetti 
catastrofici per i coraggiosi che osano l'impresa. 

Detto cosi, può sembrare il solito videogioco che dopo un po' di tempo finisce con l'annoiare, ma non è 
vero. 

Diciamo che per la concentrazione necessaria, vi ritroverete ad ancheggiare con il joystick o peggio an¬ 
cora ad intrecciare le dita sulla tastiera con lo stesso entusiasmo con cui una volta ancheggiavate e vi 
muovevate davanti al vecchio ed ormai superato Flipper. 

Vi raccomandiamo di digitare con attenzione la parte finale del listato in cui sono contenuti i DA TA ri¬ 
guardanti la creazione dei caratteri grafici e alcune routines in linguaggio macchina. 

I comandi sono i seguenti: 

0) Joystick: 

Controllo della direzione. 

II fire-button, se premuto, fa aumentare la velocità di spostamento delle pareti mobili che compongono il la¬ 
birinto. 

O) Tastiera: 

I=su 

J = sinistra 
K=destra 
M=giù 

Premendo la space-bar in basso, si ottiene lo stesso effetto che premendo il fire-button sul joystick. 


m 


<§ 


* 


* 



10 P0KE55,34 :P0KE56,23 j£LR 

15 PRINT"3"CHR$<S>; :88=36879:CS=36865:FF=255 : POKECS,FF:F8=4S4: 24=4 :Z5=5:RL=62:RR 
=63 

20 B8*36869 : SE=8164:T3=23:F4=44:H4=64: VI=36875 : DEFFNfl<J>=Z3+J*Z3+S+F8*<JflNDZl> 

25 DIMT < 5 > .• D < 4 >, K < 4 • Z3=3 • SP= 160 : KS= 187 : ZQ=2 : RE=7673 : RC=7665 • RM= 1 : BU= 198 : S2=. 94 • 
SN = 1 

30 H8= 128 = H3-32: 8=7680 : RS=57 : Z0=0-21 = 1 •'SK=5 : T2=22 : T1 =21 :SH=57 :ML=7518 : ZB=176 : LI = 
o 

35 FORI = 1T04 : REflDD< I > , K < I ) : NEXT ; JB=37154 : J1 =JD-3 : J2=J1 +1 : POKEJD.• 127 


* 






















Vie 20 



40 FORI = 1T07 : FORJ=0TO7 •' REflDfl : P0KE7616+1 *8+J, fi : NEXT : NEXT 
45 FOR1=7518T07614:REflDfi•POKEI,fi :NEXT 

50 PGKES3-i,i0 : fi$="aa **?a «ea m&a ®sa srea •• sprint "S"; = fori =0102 

1 

55 PRIHTfi*"a"CHRT(160)" "; :NEXT:PRINTfif" S M CHR$<160)"3" ; :P0KE8185,160 
60 F0RI=0TQLI-1 :P0KES+T1+T2*I,61 :NEXT = POKESS,8 :POKEDS,FF:POKECS,25 = G0T0265 
65 FQKEV1,240:0E=0E-21 
70 FORJ=0TO5=IFT < J)=Z0THEN85 

75 T<J)=T < J)+Z1 : 1FT<J>>SKTHENPOKEFNfi<J),RS:T<J)=Z0 
80 GOTO90 

85 IFRND < Z1 ) >S2THENT < .J )=Z 1 : POKEFNfi< J ), SP 

90 -NEXT:POKEV1,Z0:POKESL,E1 : SVSML : IFPEEK<SL)=E1ORPEEK<SL >=SPTHENPOKESL,OS 

95 RETURN 

100 IFR0THEN110 

105 R1=RND<Z1)>.5 : RD=T2+F4#R1:RT=INT<RND<Z1>#Z5)#Z3+Z4-F8#R1+S 
110 POKEV 1,200^ POKERC+RM, FF ' POKERB+RM, FF '• IFR1THEN125 
115 RM=RM+Z1:IFRM>Z4THENRM=Z0 
120 GOTO130 

125 RM=RM-Z1: IFRMCZ1THENRM=Z5 
130 POKERC+RM,H8:POKERB+RM,Z1 

135 POKERT,SP:P0KERT+Z1,SP:RT=RT+RD:R0=R0+Z1:IFRO=T3THENRO=Z0:POKEV1,Z0: RETURN 

140 POKERT t RL:P0KERT+Z1,RR:POKEV1,Z0: RETURN 

145- IFP-EEKt SL ) OQSTHENETlsPEEK CSL X : GQTQ240 

150 IF <PEEK<KS)=H3)=Z0AND<PEEK<J1)fiNDHS>THEN165 

155 ZW=CZW+Z1)flNDZ3 : IFZW=Z0THENZW=Z1 

160 0NZWG0SUB65,100 .■ 65 : GOTO 145 

165 DI =Z0 : fl=PEEK<KS> : IFAOH4THEN195 

170 IF <PEEK <J2)fiNDHS)=Z0THENDI=Z4:GOTO205 

175 J=PEEK< -J1 ) : IF < JHNDZ4 ) =Z0THEND I =Z 1 : GOTO205 

180 IF(JfiNDS)=Z0THENDI=2 :G0T0205 

185 IF < JfiND16)=Z0THENDI=Z3 

190 GOT0205 

195 F0RI=1T04 : IFfi=K<I>THENDI=I 
200 NEXT 

205 IFDI=Z0THEN235 

210 IFDI=Z3THEN0E=0E-SN:IFINT<<SL~S)/T2>=<SL-S)/T2THEN235 

215 IFDI=Z4THEN0E=0E+SN 

220 EL=SL+D<DI> : IFEL<S0REL>SE+T1THEN235 

225 POKEV 1,220 : E1 =EM : EM=PEEK < EL ) : IFEMOSPTHEN240 

230 POKESL,SP = OS=SH+BI :POKEEL,OS :SL=EL 

235 ZQ=Z3-ZQ = POKEV1,Z0 : ONZQGOSUB70,100 : GOTO145 

240 IFEM0224THEN255 

245 POKEV1,0 :SN=SN+1 :SK=SK-1:IFSK<2THENSK=2 

250 FOR I = 1T05 ; POKESS, 25 : fi=TfiN< I ) : POKESS • 8 : fi=TfiN< I ) •' NEXT : G0T0265 

255 POKESL, RS = POKEV 1,0: POKEV 1+2,129 •' FORI = 15TO0STEP-1 : POKESS-1,1 : fi=TRN< I ) '• NEXT 

260 POKEV1+2,0:POKESS-1,10 :LI=LI-1 : IFLI=-1THEN270 

265 POKESL, E1 •' SL=7922: 0S=61 : EM=OS : E1 =EM : POKESL, OS : P0KES+T1+T2#LI, SP : GOTO 145 
270 POKEV 1,0 = POKECS, FF : POKESS, 42 : POKEDS, 240 : PRINT"HAI USfiTO TUTTE LE" 

275 PRINTSPC<5)"TUE RISORSE..W" 

280 PRINTSPC< 7)"PUNTI : "OE : IFOE>HITHENHI=0E:PRINT"ST; 

285 PRINT"HBI RECORD ■’"HI=OE=0 

290 PR I NT " WG IOCHI fiNCORA ( S/N ) ? " : POKECS ", 25 : POKEBU, 0 

295 GETfi$ : IFA$0"S"fìNDfl$0"N"THEN295 

300 IFfi$="S"THENPOKECS,255 : LI=3 : SK=5 : GOTO50 . 

305 PRINT'TXS"; :POKE JD, FF:POKESS,27 :P0KE36865,38 : END 

310 DATA-22,12,22,36,-1,20,1,44 

315 DATA126,126,126,126,126,126,126,126 

320 DATA16,56,108,198,130,254,146,130 

325 DATA130,146,254,130,198,108,56,16 

330 DATA31,52,100,198,100,52,31,0 

335 BATA248,44,38,99,38,44,248,0 

340 DATA127,255,255,255,255,255,255,127 

345 DATA254,255,255,255,255,255,255,254 

350 DATA162,3,134,0,160,3, 162,22,169,30,133,2,169,0,133,1 

355 DATA177,1,133,251,24,165,1,105,22,133,1,144,2,230,2,177 

360 DATA1,133,252,165,251,145,1,165,252,133,251,202,208,230,200,200 

365 DATA200,162,22,169,31,133,2,169,228,133,1,177,1,133,251,56 

370 DATA165,1,233,22,133,1,176,2,198,2,177,1,133,252,165,251 

375 DATA145,1,165,252,133,251,202,208,230,200,200,200,198,0,208,166,96 














Grand prix 

In questa gara il vostro nemico non sarà il tempo, ma il carburante. 

Vi apprestate, alla guida di una TURBO, a superare spericolatamente i numerosi bolidi che affollano la 
pista. Gli incidenti, fortunatamente, non vi costeranno la vita, ma una penalità. 

Percorse 400 miglia vi spetterà un nuovo pieno ma il vostro compito sarà ancora piu arduo. 

Quanta strada riuscirete a percorrere prima di rimanere "a secco"!? 



5 GOSUB60000 
10 GOSUB10000 
20 Y=12 
30 F=37 

70 PLOT0, 0, 1 7 :P|_0T5,0, 19:PLOT10,0, 18 
90 PLOT0,7,"======================== 


100 PLOT0,17, 


110 PLOT 12,3,“rtIGLIA" 

120 PL0T8)20,"MAX.DISTANZA"+STR$CH3 
130 PL0T5,22,"PERCORSA DA "+X$ 

1200 PLOT0,6,A$:PLOT0,18,A$ 

1300 L$=LEFT$CA$,13:R$=RIGHT$CA$,373 
1400 A$=R$+L$ 

1500 PLOT 18,T," " 

1510 PLOT0,8,B$:PLOT0,16,B$ 

1520 PLOT0,9,C$:PLOT0,15,D$ 


1530 PLOT0,10,D$:PLOT0,13,G$:PLOT0,14,C$ 
1550 PLOT0,11,E$:PLOT0,12,F$ 

1600 Y$=KEY$ 

1620 L2$=LEFT$CC$,13 :R2$=RIGHT$CCt,373 :L 

5$=LEFT$CF$,13:R5$=RIGHT$CF 

$,373 

1630 L3$=LEFT$CD$,13:R3$=RIGHT$CD$,373:L 

6$=LEFT$CG$, 13 :R6$=RIGHT$(G 

$,373 

1640 LI$=LEFT$ CB$,13 :Rl$=RIGHT$CB$ r 373: 
L4$=LEFT$ C E $, 13 :R4$=RIGHT$C 
E$, 373 

1650 C$=R2$+L2$:E$=R4$+L4$ 

1660 D$=R3$+L3$:F$=R5$+L5$ 

1670 B$=R1$+L1$:G$=R6$+L6$ 

1700 IFY$=" "THEN1900 
1800 n=ASCCY$3 
1900 IFn=l 1THENY=Y-1 





























ORIC 1 




2000 IFM=10THENY=Y+1 
2010 IFY<8THENY=8 
2020 IFY>16THENY=16 

2100 IFSCRNC18,YD <>32THENEXPL0DE:S=S-10 
2200 PLOT 18, Y, ">" 

2210 F=F-.065 
2220 PLOTF.O,16 

2300 IFF <1THENZAP:ZAP : ZAP:GOTO40000 

2400 PL0T19,3,STR$CSD 

2500 IFS<400THENS=S+1ELSES=S+2 

2600 IFS=400THEN20000 

2700 IFS>400THENF=F-.080 

9000 GOTO1200 

10000 a$=": ::::::: 


10100 B$ = "K 

II 

10200 C*=" 

II 

10300 D$=" 

K " 

10400 E$=" K 

I» 

10500 F$=" 

K 

10600 G$=" 


K 

K 

K 

K 


K 


K 


K 


K 


11010 RETURN 

11510 PL0T18,Y,B$:PLOT0,16,B* 

20000 CLS:ZAP:F=37 

20010 PRINT SPRINT :PRINT"ADESS0 E’PIU’DIF 
FICILE2 2 2 " 

20020 CLS:B$="K K K 

K 

20030 C*=" k k K 

II 

20040 D$=" K - K 

K 

20050 F$ = " K K K 


20060 G$= 


K 


K 


20070 E$=" 


K 


20080 Y = 12 :&OTO70 
40000 CLS 

40100 PRINT :PRINT iFRINT“SEI RIMASTO SENZ 
A BENZINA,HA HAI PERCORSO " 

40200 PRINT:PRINTS MIGLIA 2 2 2 2 2 " 

40300 IFS>HTHENPRINT“HAI FATTO MEGLIO DI 
UN CERTO TIPO CHIAMATO " 

40400 IFS<HTHENPRINT:PRINT:PRINT"N0N HAI 
FATTO CERTO PIU’ STRADA DI 

9 

40500 PRINT:PRINTX$ 

40600 IFS>HTHENH=S:INPUT-DIMMI IL TUO NO 
ME CAMP IONE 2 2 2 ";X$ 

40700 PRINT:PRINT :PRINT"UUOI GIOCARE ANC 
ORA?CY/ND":&ETA$ 

40800 IFA$ = ,, S"THENS = 0 :CLS:GOTO10 
40900 IFA$="N“THENEND 


41000 GOTO40700 

60000 CLS : IFS<600THENH=600:X$ = " LIST 198 
4 " 

60010 PRINT :PRINT :PRINT :PRINTSPCC13 3"GR 
'AND PRIX" 

60020 PL0T14.5,"LIST 1984" 

60030 PRINT :PRINT :PRINT"TU SEI UNA K E D 
EUI SUPERARE LE ALTRE K" 

60035 PRINT"PER FARE QUESTO DEUI USARE I 
TASTI CURSORE SU’ E GIU’" 

60040 PRINT"DEUI PERCORRERE PIU’ MIGLIA 
POSSIBILI" 

60045 PRI NT"PRIMA DI TERMINARE IL CARBUR 
ANTE A DISPOSIZIONE" 

60048 PRINT"D0P0 400 MIGLIA AUMENTERANNO 
LE DIFFICOLTA’" 

60080 PRINT :PRINT :PRINTSPCC12)"BUONA FOR 
TUNA" 

60090 PRINT:PRINT : PRINT : PRINT"PREMI UN T 
ASTO PER INIZIARE2222" 

60100 F0RA=46576T046585 :READZ:POKEA,Z:NE 
XT 

601 10 FORA--46680TO46688 :READZ :POKEA, Z :NE 
XT 

60130 DATA6,32,38,63,63,38,32,6,0 
60140 DATA0,6,0,38,63,63,38,0,6,0 
60150 PRINTCHRS(17}CHR$ C 6 D 
60155 GETA*:PAPER0 : INK7:CLS:RETURN 





















Caccia al sottomarine 

Un magnifico gioco di simulazione strategica implementato sul SECA SC-300. 

Un sottomarino si annida tra le acque della zona di mare sotto la vostra sorveglianza. 

Avete a disposizione un sonar che vi permette di conoscere l'esatta distanza dal vostro cacciatorpedinie¬ 
re, ma non la direzione. 

La portata massima del sonar è di 90 miglia. 

Vi potete spostare sulla mappa di 150x 150 caselle, che rappresenta il vostro mare, fornendo le coordi¬ 
nate di arrivo successive al vostro movimento. 

La massima distanza percorribile è di 10 miglia se il sottomarino è a meno di 90 miglia. 

Nel caso la distanza del sottomarino fosse maggiore, il limite è esteso a 25 miglia. 

Potete colpire il sommergibile usando le bombe di profondità di cui siete in possesso. 

Per fare ciò dovrete fornire al computer di bordo le coordinate della zona di mare in cui supponete si tro¬ 
vi il sommergibile e la profondità a cui volete che la bomba scoppi. 

Ogni volta che usate le bombe di profondità, il sommergibile vi restituisce la pariglia con un siluro, di cui 
potete seguire la distanza dai rilevamenti sonar che si susseguono sullo schermo. 

Attenzione, non siate troppo prudenti perché spesso ed inaspettatamente il sommergibile attacca e se vi 
va male, non resterà che guardare la fatidica scritta: "Stai colando a picco!" apparsa sul teleschermo. 


10 - 530 

Presentazione gioco 


530 - 580 

Scelta del grado di difficoltà 


590 - 610 

Calcolo della posizione del sommergibile 

620 - 690 

Posizione iniziale del cacciatorpediniere 

700 - 770 

Scelta delle opzioni 


780 - 830 

Calcolo distanza sonar 


840 - 1080 

Movimento 


1090- 1260 

Istruzioni di tiro 


1270 - 1370 

Test di fine partita 


1380 - 2040 

Risposta del sommergibile 


2050 - 2310 

Spostamenti del sommergibile 


2320 - 2370 

Attacco del sommergibile 


2380 - 2520 

Istruzioni 


2530 - 2560 

Test di collisione 



Attenzione, se il computer segnala errore nel dimensionamento dei parametri nella riga 1750, correg- 



$ 
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Sega SC 3000 



10 CLS:SCREEN 2,2:C0L0R15 
20 FOR R=1T096 STEP 5 
30 C=I NT(RND(13*153+1 
40 CIRCLEC128,963,R,C, 1,0, 1, 

50 BEEP 

60 NEXT R:BEEP1 
20 PAI NT(0,0 3,5 
80 PAINT(254,03,5:BEEP2 
90 LINE (50,45 3 -(50,70 3,3 
100 LINE (50,7.03-(70,703,3 
110 LINE C70,703-(70,653,3 
120 LINE (70,653-C55,653,3 
130 LINE (55,653-C55,453,3 
140 LINE (55,453-(50,453,3 
150 LINE (75,453-(75,703,3 
160 LINE (75,703-(80,703,3 
170 LINE (80,703-(80,453,3 
180 LINE (80,453-(75,453,3 
190 LINE (85,463-(85,603,3 
200 LINE (85,603-(100,603,3 
210 LINE (100,603-(100,653,3 
220 LINE (100,653-(85,653,3 
230 LINE (85,653-(85,703,3 
240 LINE (85,703-C 105,703,3 
250 LINE (105,703-(105,553,3 
260 LINE (105,553-00,553,3 
270 LINE (90,553-00,503,3 
280 LINE (90,503-( 105,503,3 
290 LINE (105,503-005,453,3 
300 LINE ( 105,453-05,453,3 
310 LINE (110,453-(110,503,3 
320 LINE (110,503-0 15,503,3 
330 LINE 015,503-015,703,3 
340 LINE 0 15,703-020,703,3 
350 LINE 020,703-020,503,3 
360 LINE 020,503-025,503,3 
370 LINE 025,503-025,453,3 
380 LINE 025,453-0 10,453,3 
390 FOR ROTO 15 

400 COLORR.R, (35,303-040,853, R 

410 SOUND3,R*2+1500,15 

420 NEXT R 

430 SOUNO0:BEEP1 

440 COLORI,5,(0.03-C255,1913,5 

450 COLORI, 15 

460 CURSOR125,85:PRINT"PRESENTA" 

470 FOR T=1T05:BEEP2:NEXT T 
480 CLS:SCREEN 1,1 

490 CURSOR0,5:PRINT"CACCIA AL SOTTOMAR 
INO" 

500 PRINT 

510 PRINT"UUOI LE REGOLE DEL GIOCO? (S 

/N3" 

520 INPUT A$ 

530 IFA$="S" THEN 2380 

540 CLS :PRINT"GRADO DI DIFFICOLTA’ (0 

- 33?" 

550 INPUT C 

560 IFC=1 THEN C=11 


570 IF C=2 THEN C=26 

580 IF C = 3 THEN C=51 

590 X0=INT(151*RND(133 

600 T0=INT(151*RNP(13 3 

610 20=I NT((C 3 *RND(13 3 

620 PRINT"PUNTO DI PARTENZA”,"X="; 

630 INPUT XI 

640 PRINTX1T="; 

650 INPUT Y1 
660 PRINTT1 
670 X1 = INT(X13 
680 T1 = INT f T1 3 

650 IF ABS(X1-X0 3 <4 THEN 2330 

700 PRI NT"SONAR (S3 , TIRO (T3 , nOUin 

Eni a ni3" 

710 INPUT D* 

720 CLS 

730 IFD$="S" THEN BEEP2:G0T0 780 
740 IFD$="T" THEN 1030 
750 1FD$="M” 1HLN 840 
760 PRINT"ERRORE2. . " 

770 GOTO 630 

780 E=SQR(ABS(X0-X1 3 / '2+ABS( Y0-Y1 3^2 3 

730 F = SQR(E~2+ABS( 20 3 ~2 3 

800 IF F> 90 THEN 1060 

810 IF X0=X1 THEN 2530 

820 PRINT"DISTANZA SONAR: " ;F; n MIGLIA 

830 GOTO 690 

840 PRINT"POSIZIONE ATTUALE X=" ;X1J" Y 

=" ; yi 

850 PRINT"COORDINATE DI ARRIUO" J 

860 0=0 

870 PRINT"X="J 

880 INPUT X2 

890 PRINTX2;" Y="; 

900 INPUT Y2 
910 PRINTY2 
920 X2=I NT(X23 
930 Y2=1 NT(Y23 

940 G=SQR(ABS(X1-X23^2 +ABS(Yl-Y23 /S 23 

950 IF G<=10 THEN 980 

960 IF F <=90 THEN 1010 

970 IF G>25 THEN 1040 

980 X1=X2 

990 Y1=Y2 

1000 GOTO 780 

1010 IF G<=10 THEN 980 

1020 PRINT'TIASSiriO 10 MIGLIA." 

1030 GOTO -850 

1040 PRINT"MASSIMO 25 MIGLIA." 

1050 GOTO 850 

1060 PRINT"ECO SONAR NEGATIUO":BEEP2 
1070 PRINT"DI STANZA SUPERIORE ALLE 90 
MIGLIA." 

1080 GOTO 690 

1090 PRINT"COORDINATE DELL’OBIETTIUO : 
1100 PRINT" X = ", 
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1110 INPUT X3 
1120 PRINTX3 
1130 PRINT" Y = ", 

1140 INPUT Y3 

1150 PRINTY3 

1160 IF CO0 THEN 1190 

1170 23=0 

1180 GOTO 1220 

1190 PRINT" 2 = ", 

1200 INPUT 23 
1210 PRINT23 

1220 E=SQRCABSCX1-X33''2+ABSCY1-Y33~23 

1230 F=SQRCE^2+ABSC233-23 

1240 IF F <=65 THEN 1270 

1250 PRINT"GITTATA MASSIMA: 65 HI GL I A" 

1260 GOTO 1090 

1270 IF X3OX0 THEN 1380 

1280 IF Y3OY0 THEN 1380 

1290 IF 23020 THEN 1380 

1300 PRINT"SOTTONARINO AFFONDATOS 

0UND3,415, 15 

1310 FORR=15TO0STEP-.5:FOR T=1T05:S0UN 
D3,415,R :NEXT T:NEXT R 
1320 SOUND0 

1330 PRINT:PRINT"ALTRA PARTITA ? CS/N3 

II 

1340 INPUT A$ 

1350 IF A$="S" THEN 500 
1360 IF A$<>"N" THEN 1340 
1370 END 

1380 PRINT"0B1ETTIUO MANCATO.":BEEP 2 
1390 PRINT"IL SOTTOMARINO CONTRATTACCA 
..." :BEEP1:FOR T=1 TO 50:NEXT T 
1400 PRINT"ECO SONAR DI UN SILURO" :BEE 
P2 

1410 BEEP2 
1420 H=0 
1430 S1=65 
1440 0=0+1 

1450 ONOGOTO 1460-1480,1500,1520,1540 

1460 P=12 

1470 GOTO 1550 

1480 P=8 

1490 GOTO 1550 

1500 P=4 

1510 GOTO 1550 

1520 P=2 

1530 GOTO 1550 

1540 P=1 

1550 X5=X1-P+INT,C2#P*RND( 13 3 
1560 Y5=Y1-P+INTC2*P*RNDC133 
1570 IF X5<0 THEN X5=-X5 
1580 IF Y5<0 THEN Y5=-Y5 
1590 PRINT"DISTAN2A : " 

1600 R=SQR( ABSCX0-X53~2+ABSC Y0-Y53 /s 23 

1610 X=ABSC CX0-X53/R3 

1620 Y=ABSC CY0-Y53/R3 

1630 IF X0>X5 THEN 1660 

1640 X6=X0+X 


1650 GOTO 1670 

1660 X6=X0-X 

1670 IFY0>Y5 THEN 1700 

1680 Y6=Y0+Y 

1690 GOTO 1710 

1700 Y6=Y0-Y 

1710 26=20-20/4 

1720 N=0 

1730 FOR 1=1T014 

1740 R=SQRCABSCXl-X63~2+ABSCYl-Y63-23 
1750 S=SQRCR~2+26~23 
1760 N=N+1 

1770 IFX0>X5THEN1800 
1780 X6=X6+X . 

1790 GOTO 1810 

1800 X6=X6-X 

1810 IFY0>Y5THEN1840 

1820 Y6=Y6+Y 

1830 GOTO 1850 

1840 Y6=Y6-Y 

1850 26=26-20/4 

1860 IF26 <0THEN26=0 

1870 IFY6 <0THENY6=0 

1880 IFX6<0THENX6=0 

1890 IFABSCX1-X63>.5THEN1950 

1900 IFABSCY1-Y63>.5THEN1950 

1910 IF26 O0THEN1950 

1920 PRINT 

1930 PRINT"STAI COLANDO A PICCO.":BEEP 
2 

1940 GOTO 1330 
1950 IFN<5THEN1760 
1960 IFS-S1>3.5THEN2030 
1970 IFS=S1THENH=H+1 
1980 IFH>3THEN2030 
1990 S1=S 
2000 PRINTS;" 

2010 N=0 
2020 NEXT I 
2030 PRINT 

2040 PRINT"IL SILURO TI HA MANCATO..." 
:BEEP 1 

2050 FOR T=1 TO 100:NEXT T :BEEP0 

2060 X7=10*RNDC13 

2070 Y7=10*RNDC13 

2080 27=10*RND(13 

2090 IFX7<5THEN2120 

2100 X7=X7-5 

2110 GOTO 2130 

2120 X7=-X7 

2130 1FY7<5THEN2160 

2140 Y7=Y7-5 

2150 GOTO 2170 

2160 Y7=-Y7 

2170 IF27<5THEN2200 

2180 27=27-5 

2190 GOTO 2210 

2200 27=-27 
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::: 




mf 


2210 

2220 

2230 

2240 

2250 


IF C=0THENZ2=0 
X0=X0+I NT C X2 D 
Y0=Y0+I NT C Y2 D 
20 = 20+INTC 27/2 D 
IFX0>1o 0Th£N x0=150 


2260 

2220 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 


IFY0>150THENY0=150 

IF20>=CTHEN20=C-1 

IFX0<0THENX0=-X0 

IFY0<0THENY0=-Y0 

IF20=0THEN20=0 

GOTO 280 

IF ABSC Y1-Y0D > 4 THEN 200 
K=I NTC10*RNDC1D 3 
IF K>6THEN200 

PRINT" IL SOTTOMARINO ATTACCO. .. " ; 


2360 0=0+1 
2320 GOTO 1410 
2380 CLS 

2390 PRINT"SE I A BORDO DI UN CACCIATOR 
PEDINI ERE > IN CERCA DEL SOTTOMARINO." 
2400 PRINT"LA CACCIA SI SUOLGE SU UNA 
MAPPA DI 150 X 150 CASELLE E CON UNA 


$ 


2410 PRINT"PROFONDITA’ UARIABILE DA 0 
A 50. " 

2420 PRINT"DISPONI DI 3 COMANDI: 

* IL SONAR DA LA DISTANZA D 

AL SOTTO-" 

2430 PRINT"MARINO,CON UNA PORTATA MAX 
DI 90 MIGLIA. " 

2440 PRINT"X IL TIRO PERMETTE DI LANCI 
ARE UN SILURO CON UNA GITTATA MAX 
DI 65" 

2450 PRINT"MIGLIA. 

* OGNI UOLTA CHE SI USA QUE 
STO COMANDO IL SOMMERGIBILE RISPONDE AL 

FUOCO" 

2460 PRINT" E CAMBIA POSIZIONE." 

2420 FOR T=1T04000:NEXT T:CLS 
2480 PRINT"Z INDICA LA PROFONDITÀ’ PER 
I LIUELLI 1,2,3" 

2490 PRINT"* IL MOUI MENTO SI EFFETTUA 
A BASSA UELOCITA’CMAX. 10 ML3 SE IL 
SOTTOMARINO" 

2500 PRINT"E’ A MENO DI 90 MIGLIA,SIA 
AD ALTA UELOCITA’CMAX. 25 ML3." 

2510 PRINT"IL SOTTOMARINO ATTACCA SE I 
L CACCIA- TORPEDINIERE E’ TROPPO PRUD 
ENTE." 

2520 FOR T =1TO3000:NEXT T:GOTO 540 
2530 IFY0OY1THEN820 
2540 IFZ0>1THEN820 

2550 PRINT"COLL I SI ONE CON IL SOTTOMARI 
NO. . . " 

2560 GOTO 1920 


IL SOTTOMARINO CONTRATTACCA... 

ECO SONAR DI UN SILURO 
DISTANZA : 

64.026668844- 

59.11282256- 

54.166543163- 

49.225114042- 

44.296831288- 

39.386631749- 

34.502234919- 

29.656393381- 

24.821652982- 

20.191492624- 

15.209629508- 

11.652250283- 

8.6596153546- 

8.0053926296- 

IL SILURO TI HA MANCATO... 

DISTANZA SONAR: 63.663126165 MIGLIA 
SONAR CSD , TIRO CTD , MOUIMENTO CMD 


DISTANZA SONAR: 

55.668662635 MIGLIA 

IL SOTTOMARINO ATTACCA. ..DISTANZA : 

53.552345035- 


42.029213848- 


42.05000299- 


32.026388011- 


32.110969218- 


22.158242582- 


22.226694238- 


12.334408932- 


12.522420985- 


2.9619925621- 


4.4552353289- 


5.1288320408- 


IL SILURO TI HA 

MANCATO... 

DISTANZA SONAR: 

58.223206509 MIGLIA 

SONAR CSD , TIRO 

CTD , MOUIMENTO CMD 






















Incontri di calcio 


Evviva il campionato! Finalmente con il vostro SHARP MZ-700potrete seguire le partite in schedina e te¬ 
nere costantemente aggiornata la classifica di serie A, un orecchio incollato alla radiolina, un occhio al 
televisore. 

Al contrario di quanto avviene in molti programmi creati per scopo analogo, in quello che presentiamo, i 
dati variabili (incontri in schedina e punti in classifica) non sono inseriti all'interno del programma, per¬ 
tanto non è necessario che esso venga modificato volta per volta. In particolare, al termine degli incontri, 
la classifica viene registrata su "file" dal quale dovrà essere "richiamata" la domenica successiva. 
Quando si utilizza il programma per la prima volta, occorre inserire i nomi delle squadre di serie A con i 
relativi punti in classifica: dopo la domanda del computer si batte la lettera "5", quindi si inseriscono i 
nomi esatti delle squadre con i rispettivi punteggi. Il programma procede chiedendo l'immissione 
dell'elenco delle partite in schedina: è importante che i nomi delle squadre vengano forniti esatti e, a tale 
scopo, il computer chiede una verifica e consente la correzione di eventuali errori. 

Potete ora seguire lo svolgimento degli incontri; quando un risultato cambia, battete il numero dell'incon¬ 
tro e inserite // nuovo punteggio: la schedina e la classifica verranno automaticamente aggiornate. 
Terminati gli incontri occorre registrare su "file" la nuova classifica: battete il numero "14", fate avan¬ 
zare il nastro fino ad una posizione prestabilita (se il programma è registrato ad inizio di cassetta è suffi¬ 
ciente avanzare fino a "30") e premete RECORD-PLA Y; i dati vengono così registrati. La domenica suc¬ 
cessiva sarà sufficiente, dopo aver caricato il programma ed inserita la data, far scorrere il nastro fino a 
"30" e premere PLA Y: la classifica della precedente giornata viene caricata in memoria, pronta per es¬ 
sere di nuovo aggiornata durante lo svolgimento degli incontri. 

Due parole sulla struttura e sul funzionamento del programma: dopo i titoli e l'opzione per l'eventuale 
inizializzazione della classifica (righe 10-80) viene letto dal nastro il "file" con i dati registrati al termine 
della precedente giornata di campionato. Il "file" viene aperto in lettura (ROPEN) ed i nomi delle squa¬ 
dre (vettore K$(J) nonché i relativi punti in classifica (K(J)) sono trasferiti (INPUT/T) dal nastro alla memo¬ 
ria del computer; il "file" viene quindi chiuso (CLOSE) e la classificazione stampata (120). 

Segue l'immissione degli incontri: il nome di ciascuna delle 26 squadre in schedina viene assegnato alla 
variabile A$(J) ( 130-140), sono richieste ed eseguite le eventuali correzioni (150-190), i punti in classifi¬ 
ca sono incrementati di una unità, i risultati (A(J)) delle partite azzerati, i pronostici (Rf(J)) fissati su "X" 
(200); la schedina viene stampata (210) insieme alle opzioni per il successivo svolgimento del program¬ 
ma (220-230) che, a questo punto, si interrompe. 

Quando il risultato di una partita cambia, il programma riprende dalla riga 240 aggiornando il risultato 
ed il pronostico (240-280); se le squadre sono di serie B o C (Z> = 8) non occorre aggiornare la classifi¬ 
ca, pertanto il programma riprende dalla riga 210. In caso contrario (Z<=8) le righe 300-370 provve¬ 
dono ad aggiornare i punti in classifica (300-340) e a riordinare le squadre (350-370). La riga 380 de¬ 
termina la stampa della classifica. 

Al termine degli incontri, l'esecuzione del programma viene trasferita alle righe 390-420 per la registra¬ 
zione su "file" della nuova classifica: il "file" è aperto in trascrizione (WOPEN) e le variabili (K$(J) e 
K(J) registrate (PRINT/T) sul nastro. 


10 REf1*INC0NTRI DI CALCIO* 

20 REM*DI E.FABRI2I-1984* 

30 REH*SHARP flZ-700* 

40 COLOR;,2,6:PRINT"B":F0RK=6T033 :COLORK 
, 1,,2:NEXT:F0RK=2T016:C0L0R33,K,,2:NEXT: 
F0RK=32T06STEP-1 :COLORK,16,,2:NEXT :FORK= 
15T02STEP-1:C0L0R6,K,,2:NEXT 


50 A$ = "INCONTRI":B*="DI" :C$="CALCI0":CUR 
S0R15,3:F0RJ = 1 TOLENC A$ 3:PRINTMID$CA$,J,1 
3 ; • GOSUB5010 :NEXT :CURSOR18,6:FORJ = 1TOLEN 
f B$ 3 :PRINTniD$CB$, J,13 ; :GOSUB5010 :NEXT=C 
URSOR 16,9 :F0RJ = 1 T0LENCC$3 :PRINTniD$CC.$, J 
,13; : GOSUB5010 :NEXT 
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SHARP MZ-700 



60 CURSORI 1,12:PRINTC7,U"di E. FABRIZI- 
1984":GOSUB5020:DinKC16),K$C163,AC263,A$ 
C263,HC163,H$C163,R$C263 
70 CURSOR0, 18:PRINTC0,63"Per iniziai Izza 
re la classifica premere" :PRINT :PRINTC0ì 
6]"<S> poi <CR>,a Itrimenti inserire la d 
aia":INPUTDT* 

80 IFDT$="S"THEN1000 

90 COLOR,,7,1:PRINT"B":PRINTTABC93"INCON 
TRI DEL " ;DT$ :CURSOR0-,6:PRINT"Far scorre 
re il nastro fino a <30>":PRINTiPRINT"Pr 
emere <PLAY>" 

100 ROPEN"CALCIO":GOSUB5010 
110 PRINT:PRINT"Lettura dati precedenti 
in atto":F0RJ=1T016:INPUT/TKCJ3,K*CJ3:NE 
XT :CLOSE 

120 GOSUB5020:PRINT"B":PRINTTABC53"CLASS 

IFICA PRECEDENTE GIORNATA"SPRINT SPRINT JF 

0RJ = 1TOI6:PRINTTABC103USING"##";J 5:PRINT 

" " ;K$CJ 3 JTABC273USING"##";KCJ3:GOSUB500 

0:NEXT:GOSUB5020:G0SUB5100 

130 PRINT"B":PRINTTABC43"inni SSIONE INCO 

NTRI DEL ";DT$:PRINT:PRINT 

140 F0RJ = 1T026STEP2:CURSOR0,INTCJ/2+43 :P 

RINTUSING"##";INTCJ/2+T3;:INPUTA*CJ3 =GOS 

UB5010 :CURSOR20,INTCJ/2+43:INPUTA$CJ+13 : 

GOSUB5010 :NEXT 

150 PRINT"B":PRINTTABC93"INCONTRI DEL " \ 
DT$:PRINT:PRINT:FORJ=1T026STEP2:PRINTUSI 
NG"##";J;=PRINT" ";A$CJ 3JTABC203USING"## 

" J +1 ; =PRINT" " ;A$CJ+1 3 :NEXT:PRINT:PRINT 
; PRINT"Deui fare correzioni? CS/N3" 

160 GET2$:IFZ*="S"THEN190 
170 IFZ$="N"THEN200 
180 GOTO160 

190 PRINT : INPUT" Inser i se i il numero " ; J '• 
PRINT:P'RINTA$CJ3 :CURSOR20,23 :INPUTA$CJ3 : 
GOT0150 

200 GOSUB5020:FORJ = 1TO16:HU3=KCJ3 + 1 :H$C 
J3=K*CJ 3 :NEXT :F0RJ = 1 T026 :AC J 3=0‘-NEXT :FOR 
J = 1T026STEP2:RiCJ 3 = "X":NEXT 
210 COLOR,,0,6:PRINT"B":PRINTC0,43TABC10 
3"INCONTRI DEL "JDT$ SPRINT :PRINT:FORJ=1T 
026STEP2:PRINTTABC33USING"##"JCJ + 13/2;:P 
RINT" ";AiCJ 3;TABC183A$CJ+13;TABC30 3ACJ)' 
JACJ + 13 J" ";R*CJ3:GOSUB5000:NEXT 
220 PRINT:PRINT:PRINTC0,43"Per la classi, 
fica <0>":PRINT:PRINTC7,13"Per registrar 
e <14>" : PRINT :PRINTC2,73"Risu I tato mutat 
o all'incontro N. "; : INPUT?:IFZ=0THEN380 
230 IFZ>13THEN390 

240 GOSUB5030:COLOR,,7,1:PRINT"0":J=Z*2- 
1:CURSOR10,10:PRINTA*CJ3 JTABC303" ";=INP 

UTACJ 3:GOSUB5000:CURSORI 0,15 :PRINTAACJ + 1 
3;TABC303" " ; : INPUTACJ + 13:GOSUB5000 
250 PRINT"B":FORS=1TO10:CURSOR7,13:PRINT 
A$ ( J 3;TABC193A$CJ + 13jTABC313ACJ3 JACJ + 13 • 
GOSUB5010 :PRINT"ffl 

" :GOSUB5010:NEXT 


260 IFACJ 3>ACJ + 13THENRÌCJ 3 = "1":GOTO290 
270 IFACJ3 <ACJ+13THENR$CJ 3 = "2":GOTO290' 
280 R$CJ3="X" 

232 1EZ7.8TJHEN210. 

300 F0RJ=1T016:H$CJ3=A*CJ3:NEXT:F0RJ=1TO 
16:F0RN=1TOI6 : IFH$CJ 3=K$CN3THENHCJ 3=KCN3 
+ 1 :GOTO320 
310 NEXTN 
320 NEXTJ 

330 F0RJ = 1 TOI 6STEP2 :IFACJ3>ACJ + 1 3THENHCJ. 
3=HCJ 3 + 1 :HCJ + 13=HCJ+13-1 
340 IFACJ3<ACJ+13THENHCJ3=HCJ3-1 :HCJ+13= 
HCJ+13+1 

350 NEXT:F0RJ=1T015:F0RN=J+1T016:IFHCN3< 
=HCJ 3THEN370 

360 U=HC J 3:U$=H$CJ3:HCJ3=HCN3:H*CJ3=H*CN 
3:HCN3=U:H$CN3=U$ 

370 NEXTN,J :G0T0210 

380 COLOR,,4,0:PRINT "B" :PRINTC7,0 3TABC10 
3"CLASSIFICA DI SERIE A":PRINT:PRINT :FOR 
J = 1T016:PRINTTABC113USING"##";J; :PRINT" 

";H$CJ 3JTABC273USING"##"JHCJ 3:GOSUB5000: 
NEXT :GOSUB5020:G0SUB5100 :G0T0210 
390 F0RJ=1T016:KCJ3=HCJ3:K$CJ3=H$CJ3:NEX 
T:COLOR,,7,1:PRINT"0":PRINTTABC113"REGIS 
TRAZIONE DATI" :PRINT :PRINT :PRINT"R i awol 
gere il nastro fino a <30>" :PRINT :PRINT" 
Premere <RECORD-PLAY>":PRINT:PRINT 
400 UOPEN"CALCIO"-GOSUB5010 :PRINT"Regist 
razìone dati in atto" 

410 FORJ = 1T016 :PRINT/TKCJ3,K$CJ3:NEXT 
420 CLOSE=GOSUB5020: COLOR,,0,6:PRINT"B": 
A$="ARRIUEDERCI " :B$="ALLA" :C$="PROSSinA" 
:D$ = "DOnENICA"CURSORI 4,7:F0RJ = 1TOLENCA$ 
1:PRINTf1ID$CA$, J,13 ;:GOSUB5010:NEXT:CURS 
OR 17,10:FORJ = 1TOLENCB$3:PRINTf1ID$CB$,J , 1 
1 ; :GOSUB5010:NEXT 

430 CURSORI 5, 13:FORJ = 1TOLENCC$3 :PRINTt1ID 
*CC$,J,13 ; :GOSUB5010:NEXT:CURS0R15,16:F0 
PJ=1T0LENCD$3 :PRINTniD$CD$,J,1 3 ; :GOSUB50 
10:NEXT:GOSUB5020:CURSOR0,22 :END 
1000 COLOR,,7,1:PRINT"B":PRÌNTTABC63"INI 
ZIALIZZAZIONE CLASSIFICA":PRINT:PRINT"I 
nserire i nomi esatti delle squadre dis 
erie A con il relativo punteg 9 io." :PRINT 
‘PRINT:GOSUB5020 

1010 FORJ=1TOI6 : INPUT"Squadra ";K$CJ3:G0 

SUB5010 :PRINT:INPUT"Punti in classifica 

";KCJ 3:GOSUB5010:PRINT:PRINT:PRINT:NEXT: 

PRINT:PRINT:PRINT:PRINT: INPUT"Inserire I 

a data " ;DT4:GOT0120 

5000 TEnPO7:riUSIC"+C0" :RETURN 

5010 TEMP07:nUSIC"+C1":RETURN 

5020 TEMP07 -*f1USIC" +C1 +D1 +E1 +F1 +G1 +A1+B1 " 

-RETURN 

5030 TEHP07 :NUSIC"E5G7E5G7R3E3G5E3G5E3G5 
" : RETURN 

5100 CURSOR0,23:PRINT"Premi un tasto"; 
5110 GETZ$:IFZ$=""THEN5110 
5120 RETURN 
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TEXAS TI 99/4A 


La vendetta del fantasma 

Si tratta di un gioco a metà tra il genere cosiddetto "arcade" e quello di avventura. 

Dopo la presentazione e le istruzioni, viene chiesto al giocatore se è un tipo coraggioso oppure no. 

Una volta risposto a questa domanda, inizia il gioco vero e proprio. 

Partendo dalla parte piu settentrionale del labirinto e potendone vedere solo un terzo per volta, bisogna 
riuscire a scoprire dove si trova l'uscita nascosta alla base del labirinto e venirne fuori. 

Il fantasma vi rincorrerà nelle prime due parti del labirinto in una condizione di relativa facilità. 

Nella parte piu bassa del labirinto le cose si complicheranno perché il fantasma diventerà completamen¬ 
te invisibile e quindi non controllabile. 

Come al solito, vi raccomandiamo di digitare correttamente il blocco di DA TA compreso tra la riga 3270 
e la 3300. 

Queste righe andranno ricopiate esattamente cosi'come appaiono, con gli stessi numeri e le stesse virgole 
che sono ben 8, di seguito l'una all'altra. 

Un'altra avvertenza. 

Peri problemi di interfacciamento del TEXAS con la stampante ed esso applicata, vi capiterà di incontra¬ 
re alle righe 480, 620, 700, 710, 720, 2280, 2400, 2470 e probabilmente anche ad altre righe, uno 
strano simbolo che sicuramente non riuscirete a rintracciare sulla tastiera. Perché non c'è affatto. 
Tranquilizzatevi, ricordiamo che esso si ottiene sullo schermo digitando SHIFT e contemporaneamente 
2 . 

L'altro simbolo "strano", si ottiene digitando FCTN e contemporaneamente U. 


100 CALL SCREEN(2) 

110 GOSUB 3340 

120 PRINT ::::::"LA VENDETTA DEL FANTASMA.TAB(13);"LIST"::::TAB(10);"VI AUGU 
RA"BUON DIVERTIMENTO!!!!":: 

130 DIM W(24,24) 

140 C$=" PROVARE ANCORA?" 

150 RANDOMIZE 

155 CALL SCREEN(10) 

160 FOR 1=2 TO 22 STEP 2 


170 READ W(I,0) 

180 NEXT I 

190 CALL COLOR(14,16,1) 

200 DATA 147,165,175,196,220,196,175,165,2,2,2 
210 FOR 1=103 TO 137 
220 READ A* 

230 CALL CHAR(I,A$) 

240 NEXT I 

250 GOSUB 3310 

260 CALL COLOR(11,1,1) 

270 PRINT " hhhhhhh":" hhhhhhhvhhhhhhh":" hhhhhh v v hhhhhh": 

" hhhhhh v pqr v hhhhhh" 

280 A$=" k1 k1" 

290 PRINT "hkhh v stu v. hkhh":A$:" ij LA VENDETTA... ij 

FUGGI DAL FANTASMA! ij" 


300 PRINT A$;" ij w 

310 PRINT " ij <S> SINISTRA 
ALTO ij" 

320 PRINT " kl <L> BASSO 

350 CALL SCREEN(6) 

360 CALL COLOR(10,5,6) 


ij":A*;" ij PREMI PER MUOVERTI: ij":A$ 
ij":" kl < D > DESTRA kl":" ij <K> 

k 1 ":" ij";TAB(25);"ij":A$: : : 


370 FOR 1=1 TO 21 STEP 2 


380 E=I+1 

390 FOR J=2 TO 22 STEP 2 


400 W(I,J)=0 
410 W(E,J)=0 
420 W(E,J+1>=0 
430 NEXT J 
440 NEXT I 

450 CALL COLOR(11,8,1) 
460 F=24 
470 G=1 











— w 

::: 

si: •!«::: ili 

si: sii si::!!: Ili 
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480 5=2 
490 =2 


500 E=INT(RND*11)*2+2 
510 Y=22 
520 X=E 


* 


530 W(23,X)=2 
540 Q=1 
550 B=-1 


560 W(Y,X)=2 

570 0N I NT ( R'ND*4 ) + 1 GOTO 760,1020,1070,1110 

580 ON Q GOTO 590,880,610 

590 Y=Y—2 

600 GOTO 550 

610 IF W(_,§)THEN 700 

620 X=5 




* 


630 Y=_ 

640 IF X=2 THEN 680 
650 IF W(Y,X—2)=0 THEN 680 
660 W(Y,X-l)=2 
670 GOTO 550 
680 X = X+2 

690 IF W(Y,X)THEN 1080 ELSE 
700 5=5+2 

710 IF §<23 THEN 610 
720 5=2 
730 _=_+2 

740 IF _<23 THEN 610 
750 GOTO 1160 
760 B=B+1 
770 IF B THEN 580 
780 IF Y=2 THEN 830 
790 IF W(Y—2,X)THEN 1020 
800 W(Y-l,X)=2 
810 Y=Y—2 
820 GOTO 550 

830 ON Q GOTO 840,1030,1030 
840 Q=2 
850 W(1,X)=2 
860 U=X 
870 GOTO 550 
880 FRINT " SEI CORAGGIOSO?"; 

890 CALL SOUND(150,300,5) 

900 CALL KEY(3,A,Z) 

910 IF (A=78)+(A=83)+(A=86)THEN 920 ELSE 900 
920 GOSUB 3310 

930 PRINT " INIZI NELLA PARTE NORD E":" NE VEDRAI SOLO 1/3 OGNI":" VOLTA." 

940 IF A=86 THEN 970 

950 PRINT " BUONA FORTUNA ! ! ! 

960 GOTO 980 

970 PRINT "L'USCITA ALLA BASE E"NASCOSTA.TROVA LA PORTA E APRILA!!!" 

980 GOSUB 3190 
990 CALL SCREEN(6) 



1000 0=3 

1010 GOTO 610 

1020 IF Y>21 THEN 1070 

1030 IF W(Y+2,X)THEN 1070 

1040 W(Y+l,X)=2 

1050 Y=Y+2 

1060 GOTO 550 

1070 IF W(Y,X—2)THEN 1110 

1080 W(Y,X-l> =2 

1090 X=X-2 


11 oo no TO 550 

1110 IF X >21 THEN 760 

11?' 1 yF UH Y , X + _ ) T Hi U ’6‘ 1 

1 1 ' » W /,X + l)=2 
1140 X = X +2 
1150 GOTO 550 


Ilòti CALL COLOR ( 12,2,1 ) 


38 










1170 A$=" VUOI" 

USO V=1 

1190 CALL COLOR(9,1,1) 

1200 CALL COLOR(10,1,1) 

1210 S=1 
1220 N=22 
1230 C=1 

1240 IF W(21,E > THEN 1280 
1250 C=2 

1260 IF W(N,E+1)=0 THEN 1280 

1270 C=4 

1280 X=U 

1290 CALL CLEAR 

1300 CALL VCHAR(1,5,127,8) 

1310 CALL VCHAR(1,27,127,8) 

1320 FOR 1=2 TO 8 STEP 2 
1330 CALL HCHAR(1-1,6,127,21) 

1340 CALL SOUND(-1500,W(I,0), 

3,3*W(I,O),6,6*W(I,0),1O) 

1350 FOR J=2 !U 22 STEF 2 
1360 IF W(I-l,J)-=0 THEN 1380 
1370 CALL HCHAR<1-1,J+4,32) 

1380 IF W ( I , J + 1 )THEN 1400 
1390 CALL HCHAR < I,J+5,127) 

1400 NEXT J 
1410 NE *T I 

1420 LW L VCHAR (9,5, 103,8) 

1430 CALL VCHAR(9,27,103,8) 

1440 FOR 1=10 TO 16 STEP 
1450 CALL HCHAR(I — 1,6,1u3. ' I 
1460 CALL SOUND (-1600, u 1 , c. . 

3,3*W ( 1 , » ) , { , t I , O ) ,10) 

1470 FOR J=2 TO 22 STEP 2 
1480 IF W(I-1,J)=0 THEN 1500 
1490 CALL HCHAR(1-1,J + 4,32) 

1500 IF W(I,J+1)THEN 1520 
1510 CALL HCHAR(I,J+5,103) 

1520 NEXT J 
1530 NEXT I 

1540 IF A<81 THEN 1600 
1550 CAL.L VCHAR (25-F, 3,30, F) 

1560 CALL HCHAR(20,3,84) 

1570 CALL HCHAR(21,3,73) 

1580 CALL HCHAR(22,3,77) 

1590 CALL HCHAR(23,3,69) 

1600 CALL VCHAR(17,5,104,7) 

1610 CALL VCHAR(17,27,104,7) 

1620 FOR 1=17 TO 21 STEP 2 
1630 CALL HCHAR(I,6,104,21) 

1640 CALL SOUND(-1330,147,3,441,6,882,10) 
1650 FOR J=2 TO 22 STEP 2 
1660 IF W(I,J)=0 THEN 1680 
1670 CALL HCHAR(I,J + 4,32) 

1680 IF W(1 + 1,J + l)THEN 1700 
1690 CALL HCHAR(1+1,J+5,104) 

1700 NEXT J 
1710 NEXT I 

1720 CALL HCHAR(23,6,104,21) 

1730 IF A=86 THEN 1750 
1740 CALL HCHAR < 23,E+4,32) 

1750 R=E 

1760 CALL HCHAR(Y,X+4,136) 

1770 CALL HCHAR(N,R+4,32) 

1780 V( 1 )=SGN(W(N+l,R))*(N<22) * (-1 ) 

1790 V(2)=SGN(W(N,R+1)) 

1800 V(3)=SGN(W(N-l,R)) 

1810 V(4)=SGN(W(N,R—1)) 

1900 Q=C-2 


1910 IF Q>0 THEN 1930 
1920 0=0+4 

1930 ON V(1)+V(2)+V(3)+V(4) 

UU I U 1 • -ti.», 1 T'ùO , 1 980 , 1 980 
1940 r 0 

195'.» (->U 1 G 2010 

I960 C=V(1)+2*V(2)+3*V(3)+4*V(4)-0 
1970 GOTO 2010 
1980 C=INT(RND*4+1) 

1990 IF Q=C THEN 1980 
2000 IF V(C)=0 THEN 198'.» 

2010 N=N+(C=3)-(C=1) 

2020 R=R+(C=4)—(C=2) 

2090 0=ABS(Y—N)+ABS(X—R) 

2100 CALL SOUND(-400,110+0*30, 

INI•L,1.45)) 

2110 IF =INT((N-l)/8)+1 THEN 2130 

2120 IF A 81 THEN 2200 ELSE 2260 

2130 IF 0=0 THEN 2670 

2140 IF A=87 THEN 2200 

2150 IF A>81 THEN 2180 

2160 CALL HCHAR(N,R+4,130) 

2170 GOTO 2260 

2180 IF 0>5 THEN 2200 

2190 CALL HCHAR(N,R+4,130) 

2200 H=H—1 

221' IF H>—15 THEN 2260 
2230 F=F—1 

2240 CALL HCHAR(24-F,3,32) 

2250 IF F=0 THEN 2610 
2260 CALL KEY(3,L,Z) 

2270 _=Y 
2280 §=X 

2290 IF L<>75 THEN 2330 

2300 IF W(Y-1,X)=0 THEN 1770 

2310 _=Y—1 

2320 GOTO 2450 

2330 IF L< >76 THEN 2380 

2340 IF Y>22 THEN 2730 

2350 IF W(Y+1,X)=0 THEN 1770 

2360 _=Y+1 

2370 GOTO 2450 

2380 IF L< >83 THEN 2420 

2390 IF W(Y,X — 1)=0 THEN 1770 

2400 §=X—1 

2410 GOTO 2450 

2420 IF L< >68 THEN 1770 

2430 IF W(Y,X+1)=0 THEN 1770 

2440 §=X+1 

2450 CALL HCHAR(Y,X+4,32) 

2460 Y=_ 

2470 X=§ 

2480 IF (Y=N)*(X=R)THEN 2670 

2490 IF S=INT((Y—1)/8)+1 THEN 1760 

2500 CALL COLOR(9—(S=3> —3*(S=l) ,1,1> 

2530 S=INT((Y—1)/8)+1 

2540 CALL, COLOR(9—(S=3)—3*(S=l),2,1) 

2550 GOTO 1760 

2610 PRINT "TI SEI PERSO,NON HAI SCAMPO 
2620 CALL HCHAR(Y,X+4,137) 

2630 FOR 1=1 TO 30 

2640 CALL SOUND(200,340,I,-2,I) 

2650 NEXT I 
2660 GOTO 2820 

2670 PRINT "IL FANTASMA TI HA PRESO" 
2680 CALL HCHAR(Y,X+4,137) 

2690 FOR 1=1 TO 80 
2700 CALL SOUND 

v 1,-0-50*1,4,3000-25*1,9) 
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2710 NEXT I 

2720 GOTO 2820 

2730 IF G=1 THEN 2910 

2740 PRINT " HAI VINTO!!"; 

2750 GOSUB 3340 

2780 IF A< >90 THEN 2820 

2790 GOSUB 3310 

2800 PRINT " PER UN GIOCO DIFFICILE":" PREMI <V>ERAMENTE BRAVO.": :A$:C$::::::::: 

2810 GOTO 2840 

2820 GOSUB 3310 

2830 PRINT A$:: Ct ::::::::::: 

2840 GOSUB 3190 
2850 CALL SCREEN(11) 

2860 W(23,E)=0 
2870 CALL KEY(3,R,Z, 

2880 IF R=83 THEN 250 

2890 IF R< >78 THEN 2870 

2895 GOSUB 3310 

2900 END 

2910 G=2 

2920 GOSUB 3310 

2930 PRINT " ADESSO DEVI PASSARE ":" ATTRAVERSO LA PARTE SUD":" DEL LABIRINTO."; 
2940 IF A< >86 THEN 2970 

2950 PRINT "APRI BENE":" LE TUE ORECCHIE PERCHE'":" ADESSO IL FANTASMA E'":" INV 
ISIBILE 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
14083E0814 

3300 DATA 92543BFE385492,,,,,,,,FFFFFFFFFFFFFFFF,,,0808FF08081414,,,,,,181BFFBD3 
C3C2424,0000000000009DFF 
3310 CALL CLEAR 
3320 CALL SCREEN(2) 

3330 RETURN 

3340 FOR 1=1 TO 30 

3350 CALL SOUND(90,110+20*1,I,1600-40*1,30-1) 

3360 NEXT I 
3370 RETURN 


GOTO 2990 

PRINT "IL FANTASMA CUSTODISCE":"UN GRANDE SEGRETO" 

PRINT "CHE TI PERMETTERÀ' DI ":"CONQUISTARE LA LIBERTA'" 

GOSUB 3190 
CALL SCREEN(14) 

A=A+1 

FOR 1=5 TO 24 STEP 2 
FOR J =2 TO INT ((I —1)/2> 

L=W(J,I-J) 

W(J,I-J)=W(I-J,J) 

W<I-J,J)=L 
NEXT J 
NEXT I 

FOR 1=25 TO 43 STEP 2 
FOR J = I—22 TO INT(I-I/2) 

L=W(J,I-J) 

W(J,I-J)=W(I-J,J) 

W(I-J,J)=L 
NEXT J 

CALL HCHAR<1-22,30,104) 

CALL HCHAR(I-20,30,130) 

NEXT I 
GOTO 1160 
CALL COLOR(10,2,2) 

CALL HCHAR(17,6,104,502) 

CALL VCHAR(8,28,104,226) 

CALL HCHAR(7,4,136,26) 

CALL HCHAR(18,4,136,26) 

CALL VCHAR(8,4,136,10) 

CALL VCHAR(8,29,136,10) 

RETURN 

DATA FFFFFFFFFFFFFFFF,FFFFFFFFFFFFFFFF,F9F9F9F1ECDEBFAF,FFFFFFF1EE5E3A3D 
DATA B7CFFEFCF9F9F3F3,3F3F7FFFFFFFFFFF,,,,0000000001020408,18244291081008 
DATA 000000008040201,142A090402010101,18244281OOOOOOFF,285490204080808,0000 
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^LR PRimH IDE fi DI Ull ELRBORFÌTORE DI DHtTÌ 

FUSOLE RL MO-, OUPSI Ufi RECOLO FRI 
FU IO OCCRSIOnE DI Un CEnSimEOTO oeoli 
U5R CHE RI CREO 7 Z//7/7 fORCCHinR CRPRCE 
DI RCCUmULRRE E DIUIDERE ORTI 


non err RncoRR un compUTER 
[OR m OUELLR IDER C'ERR DIR 7 IL CORCET 
TO CHE una RTRUmEnW POTERRE elrbo- 
RRRE ORTI m TERIPI minaRI RISPETTO 
RLLR RlEnTE 0171000 



MA SOLTANTO DOPO UNA CIN¬ 
QUANTINA DI ANNI SI EBBERO 
I PRIMI VERI CALCOLATORI ELET¬ 
TRONICI. USATI IN AMERICA ED 
IN INGHILTERRA PER SCOPI PREVA¬ 
LENTEMENTE MILITARI, ERANO CO¬ 
STRUITI CON VALVOLE CHE CONSU¬ 
MAVANO GRANDE QUANTITÀ 'DI ENER¬ 
GIA . NEL V LE VALVOLE FURONO 
SOSTITUITE DA! TRANSISTORS, CHE 
FURONO A LORO VOL TA SOPPIANTA¬ 
TI, PIECI ANNI DOPO, DA SCAGLIE DI 
SILICIO : ! CH/P. 


FURONO UN GRUPPO DI RAGAZZI 
DICIOTTENNI CHE, LAVORANDO 
IN UN GARAGE, RIFINIRONO QUE¬ 
STI APPARECCHI DANDO LORO 
UN LINGUAGGIO D/ PROGRAMMA¬ 
ZIONE HL "BASICMICROSOFT". 


\ 



O IMI UO 

c 




DA ALLORA IL PERFEZIONAMEN¬ 
TO E LA DIFFUSIONE DEL COMPU¬ 
TER STANNO RIVOLUZIONANDO 
L'ORGANIZZAZIONE DELLA VITA 
NEI PAESI INDUSTRIALIZZATI, 
FACENDO ARRIVARE QUESTI PIC¬ 
COLI MIRACOLI TECNOLOGICI ALLA 
PORTATA DI TUTTI. 











































































































LR 5CIERZR IRFDRR1RTIER 5TR CRERRDD 

irfirite possibilitr 1 di utilizzo eoi 

LRUORO. 


m 


' 


iilllM 


r LR PRE5ERZR DELL 1 ELRBURRTORE SER¬ 
BE R PERDERE PIU 1 RRPIDR DORI OPERRZIORE-, 


r R SEIRPLIFICRRE / ERLEOLI E LE E0R1U- 
RIERZIORI-, RRZIDRRLIZZRRE LO SFRUTTRIRER 
^ TODELLE RISORSE RRTURRL!... 
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111 POCHE PRROL 
'DUELLO CHE TI R5PETTR 

e 1 un manco pulito e 
sue ni io so co TUE 

QUESTO-: 


\-'L\ 

k '4' 


Jl 


[LJULJU- 



SE SRRR'RnEHE 
SEREnO E TRRnoUILLO.. 
QUESTO OIPEnDE 
SOLRmERTE DR UDÌ. 
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EOmuniERROLIELD 
RELLR EUR L/nCUR 
5DTTD FORmR DI 
ISTRUZinm. 




A ■ H ■ k /fH. C<nnru (fi// - 





























































































'Control 


liAlfIT 
IWIWVI I 



TURN BACKER 
MV-911 (blu) 

Quando il robot si trova davanti ad un 
ostacolo gridare "Look out" e questo 
si girerà immediatamente a sinistra. 


* Movimento: 

3 gambe meccaniche per ogni lato 

* Controllo: 

sensore di suono comprendente mi¬ 
crofono c circuito stampato 

* Alimenta/ione (non inclusa): 

batterie da 1 . 5 V “AA” x 4 * 



I1A1IIT 
IVIWVI I 





Control 


IWIWVI I 



PIPER MOUSE 
MV - 915 (blu) 

Robot controllato da un sensore di 
suono Supersonico e da un circuito 
elettronico. Usando un fischietto uni¬ 
to al kit PIPER MOUSE eseguirà 
immediatamente i comandi comuni¬ 
cati: sinistra, stop, destra, stop, avanti 
e stop. 


* Movimento: 

3 ruote guidate da 2 motori DC 

* Controllo: 

sensore di suono Supersonico com¬ 
prendente microfono e circuito 
stampato. 

* Alimentazione (non inclusa): 

batterie da 1.5 V “AA” x 2 9V x 1 


SOUND SKIPPER 

MV - 971 (giallo) 

Ordinare al robot di camminare di¬ 
cendo ad alta voce “Walk” o battendo 
le mani: questo inizierà la sua ‘passeg¬ 
giata - fermandosi poi da solo. 


* Movimento: 

2 gambe meccaniche 

* Controllo: 

sensore di suono comprendente mi¬ 
crofono/transistor 

* Alimentazione (non inclusa): 
batterie da 1.5 V “N” x 2 


Nlfrrfilfrlitfa 


Contro 


B1A1IIT 

im/vi I 




IIAIIIT 
IVI\SVI I 



PEPPY 
MV - 916 (rosa) 

Il robot PEPPY è provvisto di un sen¬ 
sore sensibile al suono e a quanto in¬ 
contra di solido sul suo cammino. 
Quando il sensore viene a contatto 
con un ostacolo o percepisce un ru¬ 
more, come un battito di mani, auto¬ 


maticamente il robot gira a sinistra 
con un movimento compreso fra i 90" 
e i 180 0 . 

* Alimentazione (non inclusa): 

batterie da 1.5V “AA” x 2 


MEMOCON CRAWLER 
MV - 918 

Questo robot è controllato da una me¬ 
moria RAM 256 x 4 bit, mediante la 
tastiera inclusa nel kit e si muove in 
base ai comandi comunicati a questa 
ultima. 

Sulla tastiera vi sono 5 pulsanti che 
corrispondono ai seguenti movimen¬ 
ti: avanti, destra, sinistra, pausa, suo¬ 
no (ronzio), segnale luminoso. 


* Movimento: 

3 ruote guidate da due motori DC 

* Controllo: 

Memoria/circuito elettronico (me¬ 
diante tastiera) 

Elemento ... RAM statica 4 bit 
Comandi ... Destra/Sinistra/Avan¬ 
ti Pausa/ Suono/ Segnale luminoso 
(LED) 

Fasi ... 256 fasi approx. 0.7 - 0.3 
sec./i fase 

* Alimentazione (non inclusa): 

batterie da 1.5 V “AA” x 2 9V x 1 











Control 


mmfwn^F 

IVIWVI I 



regatante 


'Control 


Il/MIIT 
IYIWVI I 



AVOIDER 
MV - 912 

Un robot intelligente che percepisce 
gli ostacoli mediante un raggio infra¬ 
rosso e li evita. 


* Movimento: 

3 gambe meccaniche per lato 

* Controllo: 

sensore a infrarossi comprendente 
diodo/foto diodo/IC infrarossi 

* Alimentazione (non inclusa): 
batterie da 1.5 V “AA” x 4 9V x 1 


LINE TRACER II 

MV - 913 (giallo) 

Guidato da un sensore a raggi infra¬ 
rossi questo robot segue qualsiasi li¬ 
nea nera tracciata su un foglio bianco. 


* Movimento: 

3 ruote guidate da 2 motori DC 

* Controllo: 

sensore a infrarossi comprendente 
diodo/foto diodo/IC infrarossi 

* Alimentazione (non inclusa): 

batterie da 1.5 V “AA” x 2 9V x i 




li/\UIT 
IVIWVI I 

MONKEY 

MV - 919 (giallo) 

Ordinare ad alta voce al robot di muo¬ 
versi (MOVE) o battere le mani: 
MONKEY, lo scimmiotto, inizierà 
ad avanzare con le braccia lungo la 
corda tesa sulla quale sarà stato posto, 
fermandosi poi da solo. 



Movimento: 

2 braccia meccaniche. 

Controllo: 

sensore di suono comprendente 
condensatore microfono transistor 
Alimentazione (non inclusa): 
batterie da 1.5 V “N” x 2 


NAVIUS 
MV - 938 

NAVIUS è un robot controllato me¬ 
diante dei dischetti programmabili. È 
in grado di riconoscere il bianco e il 
nero del dischetto programmato e 


quindi muoversi in avanti, a destra, a 
sinistra o fermarsi. 

Il dischetto programmato può essere 
usato airinfinito. 

È possibile programmare altri dischi 
in modo da far compiere a NAVIUS 
vari movimenti. 



MR. BOOTSMAN 
MV - 931 (blu) 




'Control 


11/%1 fi 1 * 1 

m\/vi 1 



CIRCULAR 

MV - 935 (verde) 


MR. BOOTSMAN, l’insetto mecca¬ 
nico: 2 velocità, scatola di controllo. 
MR. BOOTSMAN può camminare 
o correre in avanti e indietro, a sini¬ 
stra e a destra: quando il movimento 
di tre delle sei zampe meccaniche vie¬ 


ne cambiato nell’opposto, il robot 
può girarsi di 360". 

* Alimentazione (non inclusa): 

batterie da 1.5 V “AA” x 2 


CI RCULAR è provvisto di due gran¬ 
di ruote che gli permettono di ruotare 
in avanti, a destra, a sinistra e su se 
stesso. 

Tutti i movimenti sono controllali 
mediante un comando a distanza. 


Alimentazione (non inclusa): 

batterie da 1.5 V “AA” x 2 9V x 1 













MEDUSA 
MV - 939 

MEDUSA il robot dal cervello elet¬ 
tronico. Registrati i comandi, il robot 
inizierà a muoversi fermandosi auto¬ 
maticamente passato il tempo presta¬ 
bilito. 


* Movimento: 

2 gambe meccaniche per lato 

* Controllo: 

sensore di suono comprendente 
condensatore microfono/transistor 

* Alimentazione (non inclusa): 
batterie da 1.5 V “N” x 2 


MOVITS: MOVIT significa entrare nel nuovo, eccitante 
mondo dei Robots. 

Una scatola MOVIT contiene infatti circuiti e 
motori in miniatura che vi faranno compiere 
il grande passo verso il futuro: la robotica. 
Istruzioni dettagliate vi «guideranno» in que¬ 
sta affascinante avventura: tutto quello che 
dovrete aggiungere sono pinze, giraviti e ... 
curiosità! 

Ogni MOVIT ha caratteristiche proprie: si va 
da modelli semplici — per costruzione e fun¬ 
zioni — a modelli sofisticati — comando a di¬ 
stanza, raggi infrarossi. 


Distributore esclusivo per l'Italia: 


HD TEXIM ITALIA s.r.l. 


Via Flavio Stilicone, 111 - Roma 


Tel. (06) 766.54.95 - Telex 620159 TEXIMI 




























































































































































































































































NEWS & NEWS 


V-* * 



Ed ecco arrivare il FAI DA TE an¬ 
che nella robotica! 

Si allarga il campo degli interessi 
per gli hobbyisti autocostruttori: 
dalle automobili agli aereoplani, al¬ 
le navi ed, ora, ai robots. 

Il progresso, non poteva essere di¬ 
versamente, investe anche il vasto 
e sempre attuale settore dei kits. 

I robots della Movit, infatti, proprio 
perché destinati a fini educativi ol¬ 
tre che ricreativi, sono un concen¬ 
trato dei più recenti progressi nel 
settore della tecnica elettronica. 
Questi mini gioielli sono dotati di 



IL ROBOT 
FATTO 
IN CASA 




sensori acustici, ultrasonici o a in¬ 
frarossi che vengono utilizzati per 
eseguire dei comandi. 

I modelli a disposizione sono una 
dozzina per tutti i gusti e per tutte 
le età: dal TURN BACKER che al 
grido di “Look out’’ evita gli osta¬ 
coli, al SOUND SKIPPER che al se¬ 
gnale walk o battendo semplice- 
mente le mani si mette a cammina¬ 
re, al MEMOCON CRAWLER che si 
muove in base ai comandi comuni¬ 
cati ad una memoria incorporata, 
fino al LINE TRACER che riesce a 
seguire qualsiasi linea nera trac¬ 
ciata su di un foglio. 

Ma i robottini della Movit, oltre che 
divertire, svolgono un ruolo educa¬ 
tivo da non sottovalutare: impe¬ 
gnano l'attenzione, affinano l'intui¬ 
to del ragazzo (ma anche dell'adul¬ 
to) nella costruzione della macchi¬ 
na, sviluppano i riflessi, ma soprat¬ 
tutto consentono un approccio non 
traumatico con una scienza, l'elet¬ 
tronica, che se fino ad ora ha tro¬ 
vato grande applicazione nell’indu¬ 
stria è destinata, però, a regolare e 
quindi a condizionare sempre più 
anche la vita privata ed i rapporti 
interpersonali. 

Per tutti questi motivi i robottini del¬ 
la Movit, inclusi nella ristretta cate¬ 
goria dei cosi detti “giocattoli intel¬ 
ligenti’’, aiutano davvero ad impa¬ 
rare giocando. 

Distributore esclusivo per l’Ita¬ 
lia: TEXIM Italia s.r.l. Roma c/o 
redazione LIST 
















TUTTI 
AL NASTRO 
DI PARTENZA 

Cari lettori, 

il grande concorso a premi di LIST 
ha preso il via nel migliore dei mo¬ 
di. 

Numerosi sono i programmi per¬ 
venuti fino ad ora in redazione e 
l’apposita commissione di esperti 
si è già messa al ‘lavoro’ per le pri¬ 
me selezioni. 

Siamo davvero soddisfatti per 
questo avvio cosi promettente 
che dimostra l’impegno e la matu¬ 
rità dei lettori di LIST. 

Il concorso, infatti, è una valida e 
piacevole opportunità (visti i bei 
milioncini in palio) che tutti voi 
avete per dimostrare la vostra 
creatività ed i progressi raggiunti 
nell’uso del computer. 

Anche in questo numero troverete 
l’apposito tagliando-concorso per 
partecipare a questa simpatica 
gara. 

Affrettatevi, però, ad inviarci i vo¬ 
stri programmi: c’è tempo fino al 
30 Dicembre per partecipare alle 
Olimpiadi del Software! ! ! 











2) I programmi 
dovranno essere inviati 
incisi su cassetta o registrati su floppy-disk. 

I programmi su carta non potranno essere presi in 
considerazione. 

3) Gli elaborati dovranno essere accompagnati da 
brevi note esplicative sul funzionamento e sulle 
possibili applicazioni del programma. Questo do¬ 
vrà contenere all’inizio del listato delle “REM” 
(istruzioni preliminari) indicanti la denominazione 
del programma, il nome, l’indirizzo ed il numero 
telefonico del suo autore. 

4) L’invio del programma verrà preso in conside¬ 
razione unicamente e soltanto se accompagnato 
dall’apposito tagliando di partecipazione pubbli¬ 
cato sulla rivista. 

I partecipanti al concorso dovranno altresì assu¬ 
mersi ogni responsabilità circa l’originalità dei 
progammi trasmessi. 

5) I programmi dovranno pervenire in redazione 
entro e non oltre il 30 dicembre 1984 e verranno 
preventivamente sottoposti ad una preselezione 
affidata ad una giuria di tecnici ed esperti, compo¬ 
sta di cinque persone che, fra i programmi perve¬ 
nuti, sceglieranno i dieci migliori (per funziona¬ 
mento, originalità ed interesse del risultato) per 
ogni modello di home-computers ammesso al 
concorso. 

6) Le categorie ammesse sono le seguenti: TE¬ 
XAS TI 99/4A, ORIC 1, SINCLAIR ZX-81, COM¬ 
MODORE VIC-20, COMMODORE CBM-64, 
SINCLAIR SPECTRUM, MPF II, SEGA SC 3000, 
SHARP MZ 700. 

7) I programmi cosi preselezionati verranno pub¬ 
blicati sui prossimi due numeri (ed eventualmente 
successivi) della rivista per essere sottoposti al¬ 
l’esame dei lettori che saranno chiamati a votare 
il programma a loro giudizio migliore, mediante 
una cartolina-voto che verrà pubblicata sul nume¬ 
ro due dell’anno 1985 della rivista. 

8) I nove programmi più votati conferiranno al loro 
autore il titolo di vincitore della categoria, con l’at¬ 
tribuzione di un diploma e di un trofeo. 

9) Tra i nove finalisti ed in loro presenza verrà sor¬ 
teggiato il premio finale di cinque milioni in get¬ 
toni d’oro. 

10) Nella medesima occasione, fra tutte le cartoli¬ 
ne-voto pervenute, sarà estratto un ulteriore pre¬ 
mio consistente in un milione in gettoni d’oro. 

11) L’estrazione avverrà entro il mese di luglio del 
1985. 

12) Tutti i nomi di coloro che comunque abbiano 
inviato programmi saranno pubblicati sulla rivista. 


LAMENTO 


1) Possono partecipare al concorso a premi 
“STRIKE” tutti i lettori residenti nel territorio na¬ 
zionale, inviando all’indirizzo della redazione pro¬ 
grammi per home-computers che ritengano origi¬ 
nali e di comune interesse. 


ECCO 
L’ESTRAT¬ 
TO DEL REGO- 
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DENTRO IL COMPUTER 


UN ALGEBRA 
PERI CIRCUITI 
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Abbiamo già visto come, a partire 
da un certo numero di variabili bi¬ 
narie, indipendenti l’una dall’altra, 
sia spesso utile o addirittura indi¬ 
spensabile “pilotare” un'altra va¬ 
riabile binaria in modo che que¬ 
st'ultima assuma, in corrisponden¬ 
za a tutte le possibili combinazioni 
dei valori delle variabili di “coman¬ 
do”, quelli opportunamente prefis¬ 
sati. 

Se con XI, X2, X3 indichiamo le va¬ 
riabili di “comando” e con L la va¬ 
riabile da pilotare, la situazione 
può essere riassunta da una “ta¬ 
bella della verità ’ ’ (vedi fig. 1 ). 

Se XI, X2, X3 sono interruttori di 
una stanza ed L è il lampadario 
centrale, la fig. 1 indica un ragione¬ 
vole progetto di impianto, in cui 
L = 0 significa luce spenta, L = 1 
significa luce accesa. 

Con la tecnica “somma di prodot¬ 
ti” possiamo realizzare una combi¬ 
nazione (mediante AND, OR, NOT) 
delle variabili “pilota” che faccia¬ 
no assumere alla variabile “co¬ 
mandata”, in ogni caso possibile, i 
valori desiderati: 

L = (X1aX2aX3)v(X1aX2aX3)V(X- 
1aX2aX3)v(X1aX2aX3) 
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Il fatto che l'espressione trovata 
sia corretta è facilmente verificabi¬ 
le. 

Quello che invece non è detto è 
che sia la più semplice tra tutte 
quelle possibili. 

Il problema potrebbe sembrare so¬ 
lo teorico se non fosse che gli 
“operatori” OR, AND e NOT sono 
fisicamente realizzabili e pertanto 
occupano volume, dissipano ener¬ 
gia, impiegano un certo tempo a la¬ 
vorare, costano un certo prezzo. 

In altri termini, è in pratica assai 
importante non solo realizzare un 
circuito che funzioni in modo cor¬ 
retto, ma anche realizzarlo con il 
minor numero possibile di operato¬ 
ri. 

Risulta allora utile avere a disposi¬ 
zione una serie di regole “algebri¬ 
che” che permettano di semplifi¬ 


care le espressioni. 

Per chiarire fino in fondo il concet¬ 
to, pensiamo alla vecchia algebra 
studiata a scuola. Tutti sappiamo 
che: 

a 2 + 2ab 2 = (a + b) 2 
ma, in pratica, non abbiamo nes¬ 
sun valido motivo per preferire una 
delle due forme all'altra. 

Se, però, avessimo un ipotetico og¬ 
getto fisico che realizzasse la som¬ 
ma degli ingressi ed un altro che 
realizzasse i prodotti, per “costrui¬ 
re" a 2 + 2 a-b + b 2 dovremmo mon¬ 
tare il circuito di figura 2; per “co¬ 
struire”, invece (a + b) 2 dovremmo 
montare il circuito di fig. 3. 

È chiaro che i due circuiti, a parità 
di valori di a e di b, darebbero in 
uscita lo stesso valore Q, ma che il 
secondo è di gran lunga più econo¬ 
mico e facile da realizzare. 





X 

y 

z 

yvZ 

xxy 


xv\fyvz) 

/XaYWyaz) 

£> 

o 

o 

o 

c 

0 

o 

o 

O 

0 

i 

A 

o 

o 

o 

o 

O 

s 



o 

o 

o 

o 

A 

0 

o 

O 

o 

o 

o 

o 

0 

A 

A 

A 

o 

o 

o 

0 

w 

c 

1 

A 

o 

A 

A 

A 

A 

i 

<o 

A 

A 

o 

A 

1 

A 

A 

-1 

A 

-f 

A 

A 

A 



56 



































































































Occorre, dunque, individuare quali 
siano le regole dell'algebra valide 
per le operazioni OR, AND, NOT. 
Queste regole possono essere fa¬ 
cilmente dimostrate in diversi mo¬ 
di. Uno di questi, molto semplice, 
anche se poco elegante, è quello 
di compilare le tabelle della verità 
ed eseguire un controllo diretto. 

Per esempio, la verifica della rela¬ 
zione 

Xa(YvZ) = (XaY)v(XaZ) 
è mostrata in fig. 4. 

Un altro modo, più interessante, è 
quello di interpretare ciascuna va¬ 
riabile come un interruttore aperto 
(stato 0) o chiuso (stato 1), l'opera¬ 
tore AND come una connessione 
in serie di tali interruttori, l’operato¬ 
re OR come una connessione in 
parallelo, l'operatore NOT come 
un cambiamento di stato dell’inter¬ 
ruttore. 

Conviene inoltre pensare di avere 
a disposizione un interruttore sem¬ 
pre aperto, che indicheremo con 
zero, ed uno sempre chiuso, che 
indicheremo con 1. 

Due espressioni saranno equiva¬ 
lenti se lo saranno i rispettivi circui¬ 
ti, ricavati con le regole sopra 
esposte. 

Controlliamo con tale metodo, os¬ 
servando la fig. 5, che XvX = X 
Riassumiamo alcune regole fonda- 
mentali, la cui dimostrazione può 
essere fatta per esercizio dal letto¬ 
re, in fig. 6. 

È da notare che tra le regole della 
colonna sinistra e quelle della co¬ 
lonna destra c 'è una sorta di sim¬ 
metria (in termini tecnici, dualità): 
si passa da una colonna all'altra 
scambiando l'operazione con 
l'operazione e il valore 0 con il va¬ 
lore 1. 

Concludiamo con un esempio di 
semplificazione: 

(XvYvXaY)aY = (XaY)vXaY)aY 
= (XaYaY)v(XaYaY) = 
=Xa(YaY)vXa(YaY) = 
(XaO)vXaY= 

= OvXaY = XaY 
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DENTRO IL COMPUTER 



L'aver effettuato questi passaggi 
consente di realizzare (vedi fig. 7) 
con un circuito molto semplice 
un'espressione abbastanza com¬ 
plessa. 



X A X' - X 

;*- \/ X = X 

x" A * = o 

X V x - ^ 

X A 0 — O 

* V "I = 4 

X A -i - X 

X V 0 - X 

Y A (y N/E ) - (*A v) 

X\z(yA2:)- (x uy )a (x \7z) 

x Ay= x vy 

wy = xa/ 

% e 
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Super polpetta 




Questa volta non siete un astronauta né un pilota di formula !, bensì.... una succulenta polpetta appena 
uscita dal forno del variopinto "ARNOLD'S FAST FOOD". 

Al bancone, TIN-SAL-SO', un frenetico cameriere cinese >, cerca di guarnirvi con della salsa Ketchup, si¬ 
curamente per servirvi in pasto chissà a quale affamato cliente. 

Voi vi sentite ancora troppo "caldi" (di forno!!!) per questa ingloriosa fine / ed allora cercate di sottrarvi 
all" / insalsamento " che vi costerebbe la.... vita. 

Purtroppo , dovete anche difendervinon solo dal "sadico" cameriere ma anche da quelle focacce che 
vengono giu dallo scaffale dietro al bancone. Cosa fare, dunque>, per distruggerle se non schizzarle con 
un po'di grasso caldo??? 

La polpetta - chi l'avrebbe mai detto! ha cinque vite. 
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/ 00 punti per ogni focaccia "abbattuta "! 

Un insieme di caratteri grafici ridefiniti sprites ed effetti sonori non mancheranno di divertirvi! 

Chi volesse impiegare il joystick invece della tastiera, può modificare il programma sostituendo le se¬ 
guenti Pinec: 


10 PEEK (56321) 

20 IF(KE AND4) = 0 THEN 

x=x-10 

25 IF(KEAND 16) = OTHENGOSUB9100 
30 IF (KE ANDS) = OTHEN x=x+ 10 
ed eli mando le linee 12185, 12190 


Strutture programma 


80 
110 
120 
125 
130 
134- 


36 


140 

145 

150-160 

170-190 

185 

300-390 

2000-2299 

9000-9050 

9100-9190 

12000-12210 

15000-15250 

40000-40135 

40140-41060 

42000-42030 


movimento discendente della focaccia 
esame tasto premuto 
spostamento a sinistra 
spruzzo di grasso 
spostamento a destra 

gestione sprite polpetta nella zona schermo compresa fra le posizioni orizzontali (colon¬ 
ne) 256 e 320 

posizione polpetta e sua ombra 
collisione con focaccia 
cambiamento direzione cameriere 
gestione sprite cameriere tra colonne 256 e 320 
posizione cameriere 

scelta di quale focaccia deve attaccare \ )ì, 

morte polpetta ^ ( 1 '!) 

schizzo ketchup 

sobroutine spruzzo grasso c 

stampa istruzioni 

fine del gioco e stampa punteggio 
display schermo 
predisposizione caratteri grafici 
predisposizione posizione finale degli sprites 


Variabili 

TP tasto premuto 

X2 posizione x della focaccia 

Y2 posizione y della focaccia 

XI posizione x del cameriere 

X posizione x della polpetta e della sua ombra 

DX direzione cameriere 

CI controllo presenza cameriere tra le colonne 256 e 320 

C controllo presenza polpetta tra le colonne 256 e 320 

AC BC colonne 256 e 320 dello schermo 

FA focaccia che attacca 

NV numero vite esaurite 

Y3 posizione y del ketchup 

Y4 posizione y del grasso 

PU punteggio 

RE record 

V registro iniziale della scheda VIC (53248) 

NA$ nome giocatore che ha raggiunto punteggio record 
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1 rem****************** 

2 rem* * 

3 REM* SUPER POLPETTA * 

4 REM* * 

5 REM* DI MAURO CIFANI* 

6 REM* * 

7 REM****************** 

8 REM ***SET COLORI SCHERMO*** 

9 P0KE53281,1 :POKE53280,13 

10 GOSIJB12000 : REM ***STAMPA ISTRIJZI OH I *** 

15 PRI NT "RIATTENDERE, PREGO. . .STO CARICANDO DATI" 

17 : 

18 REM ***SET CARATTERI GRAFICI E SPRITE*** 

19 : 

20 GOSUE40140 

2 5 G 0 S U E62000 : C - 0 
30 GOSUB40000 
50 GOSUE4200O 
60 GOSUB300 

70 POKEV+21,PEEK(V+21>0R32 

78 REM +**MOVIMENTO FOCACCIA*** 

79 : 

80 POKEV+8,X2:FORV2=74TO250STEP10 : POKEV+9,V2 
100 REM ***ROUTINE PRINCIPALE*** 

105 F'R I NT " . = "PU 

110 TF'=F‘EEK (. 197 ) 

115 POKEV+30,0 

119 REM ***MOVIMENTO A SINISTRA*** 

120 iftf-47then:*;=x-10 

124 REM ***FUOCQ*** 

125 IFTP=60THENGOSUB9100 

129 REM ***MOVIMENTO A DESTRA*** 

130 IFTP=44THENX=X+10 

131 IFX<20ANDC=0THENX=20 



132 IFX>45AHDC=1THENX=45 

134 IFX< 10THENX=250 '• POKEV, X : POKEV+12, X: POKEV+16, PEEK<V+16>AND 190 : C=0 


136 IFX>250THENPOKEV+16,PEEK<V+16>0R65:X=10 :C=1 

139 REM ***POSIZIONE POLPETTA E OMBRA*** 

140 POKEV,X :POKEV+12,X : X1=X1+DX 

144 REM ***ANALISI COLLISIONE POLPETTA-FOCACCIA*** 

145 J=PEEK<V+30) : IF<JAND17) = 17THENGOSUB2000 

146 POKEV+30,0 

149 REM ***MOVIMENTO CAMERIERE*** 

150 IFXK4UANDC1=0THENDX=-DX : GO3UB500 
160 IFX1=45ANDC1=1THENDX=-DX:GOSUB500 

170 IFX1 05THENX1=250 :POKEV+14,X1 :POKEV+16,PEEK < V+16)AND127 - C1=0 

180 IFX1>250THENPOKEV+16,PEEK< V+16)OR128 : X1=5 : C1 = 1 

185 POKEV+14,XI 

200 IFX1=ACTHENGOSUB9000 

205 IFC1=1ANDX1=BCTHENGOSUB900O 

235 NEXT 

236 GOTO60 

300 REM ***ATTACCO DELLA POLPETTA*** 


301 POKEV+21,PEEK(V+21> OR16 

305 FORJ=l146T01182STEP5:POKEJ,64 :POKEJ+1,65 :NEXT 

306 FORJ=l186T01222STEP5:POKEJ,66 :POKEJ+1,67 :NEXT 
310 FA=INT<6*RND<1>)+1 

320 IFFA = 1 THENX2=36 : POKE 1146,0: POKE 1147,0 ' POKE1186,0 : F'OKE 1187,0 
330 IFFA=2THENX2=76:POKE1151,0:POKE1152,0:PQKE1191,0:POKE1192,0 
340 IFFA=3THENX2=116 :POKE1156,0:POKE1157,0:POKE1196,0:POKE1197,0 
350 I FFA=4THENX2= 156 : POKE 1161,0: POKE 1162,0 ■' POKE 1201,0: POKE 1202,0 
360 IFFA=5THENX2=196 :POKE1166,0:POKE1167,0:POKE1206,0 :POKE1207,0 
370 IFFA=6THENX2=236:POKE1171,0:POKE1172,0:POKE1211,0:pQKE1212,0 

390 RETURN 

499 : 

500 REM ***FIJOCO CASUALE DEL CAMERIERE*** 

510 AC=<INT <21*RNDU > > +1>*10 

520 BC=INT <3*RND(1> +1>*5 


60 
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530 RETURN 

1993 REM ***MORTE DELLA POLPETTA*** 

2000 NV=NV+1 

2010 POKEV+21,PEEK < V+21)AND191 
2020 PQKE2040,253 :POKEV+23,PEEK<V+23>ORI 
2030 P0KE54277,5 :P0KE54273,255 
2035 P0KE54276,33 :P0KE54272,1 

2040 F0RJ=255T00STEP-5:P0KE54273,J:FORG=1TO50:NEXT:NEXT 
2045 PCKE54276,0 

2050 POKEV+23, PEEK < V+23 ') AND254 : POKE2040,248 
2060 POKEV+21,PEEK <V+21)0R64 
2100 POKEV+5,0 :POKEV+7,0 
2105 POKEV+9,0 

2110 POKEV+21,PEEK(V+21>AND243 
2200 POKEV+16,PEEK < V+16 >AND243 
2210 POKEV+21,PEEK<V+21>AND239 
2220 IFNV=5THEN15000 
2293 RETURN 

8998 : 

8999 REM #**FUOCO DEL CAMERIERE*** 

9000 PQKEV+4,PEEK < V+14 ) -4 :POKEV+6,PEEK<V+14>+28 
9005 IFC1 = 1THENPOKEV+16,PEEK CV+16 >OR12 

9010 POKEV+21,PEEK<V+21>OR12 

9016 P0KE54277+7,36 :P0KE5427S+7,0 

9017 P0KE54276+7,33 :P0KE54272+7,37 :P0KE54273+7,17 
9020 F0RV3= 120TO240STEP15 •' POKE V+5, V3 : POKEV+7, V3 

9024 J=PEEK ( V+30 > AND9 : IFJ=3THENG0S!JB2000 • GOTO3026 

9025 J=PEEK<V+30>AND5:IFJ=5THENGOSUB2000 

9026 POKEV+30,0 

9027 NEXT 

9030 POKEV+21,PEEK <V+21)AND243 
9040 POKEV+16,PEEK <V+16 >AND243 
9047 P0KE54276+7,32 
9050 RETURN 

9100 REM ***FIJOC0 DELLA POLPETTA*** 

9110 IFX>240THENRETURN 

9111 IFC=1THENPOKEV+16,PEEK CV+16 >0R2 

9112 POKEV+2,X+15 : POKEV+3,176 
3120 POKEV+21,PEEK<V+21>0R2 

9130 F0RV4=176TO30STEP-7:POKEV+3,V4 

9131 PI=PEEK<V+30>:IF<PIAND18>=13THENGOSUB9170 
9135 NEXT 

9140 POKEV+16,PEEK <V+16> AND253 
9150 POKEV+21, PEEK < V+21 ') AND253 
9160 KETURN 

9170 REM ***DISTRUZIONE FOCACCIA*** 

9180 PU=PU+100 

9185 POKE2044,253 :P0KE54277,9 :P0KE54278;0 

9186 P0KE54273,17:P0KE54272,37 :P0KE54276,17 

9187 F0RK8=ITO1000 :NEXT:P0KE54276,0 :PGKE2044,252 :POKEV+9,0 
9190 POKEV+21,PEEK(V+21)AND239:POKEV+30,0 : RETURN 

11993 : 

11999 REM ***STAMPA ISTRUZIONI*** 

12000 PRINT"r^jRlBISIBW/UOI LE ISTRUZIONI <S/N>?" 

12001 GETA$ : IFA$0"S"ANDA$0"N"THEN12001 

12002 IFA$="N"THENRETURN 

12010 PRINT"ai»»»»B-U-P-E-R-P-O-L-P-E-T-T-A" 

12030 PPT »™- " 

12040 PRINT"iWDRA SEI PIPPO,UNA POLPETTA DOTATA DI" 

12050 PRINT"STRAORDINARI POTERI,NELLO SNACK BAR DI" 

12060 PRINT"ARNOLD'S.DEVI EVITARE DUE TIPI DI PERI-" 

12070 PRINT'XOLI: DELLE FOCACCE CHE TI SI SCAGLIE-" 

12080 PRINT"RANNO CONTRO DAL BANCONE,ED IL CAMERIE-" 

12090 PRINT"RE,CHE TI SPRUZZERÀ" DEL KETCHUP PER" 

12100 PRINT"CONDIRTI E SERVIRTI AL PROSSIMO CLIEN-" 

12110 PRINT"TE.PUOI MUOVERTI PER EVITARE QUESTI PE-" 

12120 PRINT"RICOLI,E CERCARE DI DISTRUGGERE LE FO-" 

12130 PRINT"CACCE CON UNO SCHIZZO DI GRASSO BOLLEN-" 

12140 PRINT"TE PREMENDO SICSPAZI03i.SE LE COLPIRAI" 
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12150 FRINT"AUMENTERAI IL PUNTEGGIO. «ATTENZIONE ! SIL" 

12160 PRINT"CfiMERIERE NON PUÒ" ESSERE DISTRUTTO.HAI" 

12170 FRINT"5 VITE A DISPOSIZIONE.I COMANDI SONO : " 

12180 PR I NT " IiJ[ < ] 1=S INISTRA mC>]i=DESTRR" 

12190 PRINT"PER INIZIARE IL GIOCO PREMI UN TASTO." 

12200 GETA$: IFA$=""THEN12200 
12210 PRINT"T : RETURN 

14998 : 

14999 REM ***FINE DEL GIOCO*** 

15000 POKEV+21, Ù : PR I NT 111 □" : P0KE54296,15 

15001 P0KE54277+14,0:P0KE54278+14,240 

15002 P0KE54273+14,8 : PQKE54272+14,147 

1 50 1 0 for j=i Toso •• pr i nt 11 mmmmarn Sj-A-M-E—O-V-E-R " 

15015 P0KE54276+14,17 
15020 FORG=1TO50:NEXT 
15025 P0KE54276+14,16 

i soso pr i nt "iìb-a-m-e--o-v-e-r " 

15040 FORG=1TO50:NEXT:NEXT 
15045 P0KE54276+14,16 

15050 PR I NT "IL TUO PUNTEGGIO E" VPU.:" PUNTI" 

15060 IFPUCRETHEN15100 

15070 IFPU>RETHENRE=PU : PRINT"fcE"IL RECORD DI OGGI!" 

15075 F0RP=1T015:GETAT:NEXT 
15080 INPUT"COME TI CHIAMI"; NOME* 

15090 PR I NT " !i»*C-0-N-G-R-A-T-U-L-A-Z-1 -O-N-1 ** " 

15095 GOTO15200 

15100 PRINT"IL RECORD DI OGGI E" "; RE" DI ";NOME$ 

15200 PRINT"UN"ALTRA PARTITA <S/N>?"=A$="" 

15210 GETAf : IFA$0"S" ANDATO"N"THEN 15210 
15220 IFA$="S"THENNV=0:PU=0:GOTO30 
15230 END 
40000 : 

40010 REM ***SET SCHERMO*** 

40020 : 

40030 REM ***LOCAZIONI COLORE*** 

40040 F0R J=55296T055535 : POKE J, 0 ■' NEXT 

4005O F0RJ=55576T055775 : POKEJ, 3 : NEXT 

40060 F0RJ=55776T056295:POKEJ,7 :NEXT 

40070 FORJ=55418T055434STEP5 : POKEJ, 10 •' POKEJ+1, 10 : NEXT 

40080 REM ***LOCAZIONI SCHERMO*** 

40090 FORJ=1025T01062 :POKEJ,100•NEXT 

40091 FORJ=1U65T01083 :POKEJ,69 :NEXT 

40092 FORJ=1083TO1102 :POKEJ,68 :NEXT 

40093 FGRJ=1104TO1143 :POKEJ,32+128:NEXT 

40094 FORJ=1144T01222STEP5:POKEJ,32+128 :NEXT 

40095 FORJ=1224TO1263 :POKEJ,32+128 :NEXT 

40096 POKE1064,70 :POKE1344,70 :POKE1103,71:POKE1383,71 
40100 FORJ= 130STO 1342 •' POKEJ, 100 : NEXT 

40110 FORJ=1345T01363 :POKEJ,69 :NEXT 

40111 FORJ=1364T01382 :POKEJ,68 :NEXT 

4y120 FORJ=1384TO1503 :POKEJ,32+128 :NEXT 
4G130 FORJ=1504TO2023:POKEJ,102 :NEXT 

40131 FORJ=1146TO1182STEP5:POKEJ,64 :POKEJ+1,65 = NEXT 

40132 FORJ= 1186T01222STEP5 •’ POKEJ, 66 : POKEJ+1,67: NEXT 
40135 RETURN 

40137 : 

40138 REM ***SET CARATTERI PERSONALI*** 

40139 : 

40140 PRIMTCHRT<142 >:P0KE52,48 :PQKE56,48 :CLR 

40150 P0KE56334,PEEK<56334>AND254:POKE1,PEEK<1>AND251 

40160 FORI=0TO511 :POKEI +12288,PEEK <I+53248 >:NEXT 

40161 FOR I =800T0800+7 : POKE I +12238, PEEK •% 53248+1 ) '■ NEXT 

40162 FORI=1280TO1280+7 : POKEI+12288,PEEK<53248+I>:NEXT 
4U163 FORI = 12288T012288+7 :POKE1,0:NEXT 

40165 FORI=816T0S16+7 :POKEI +12288,PEEK <53248+1>:NEXT 

40170 POKE1,PEEK (. 1> OR4 

40175 POKE56334,PEEK<56334>OR1 

40180 P UKE53272, k P E EK <. 53272 ) AND 24U .-' + 12 

40190 FORI=i280OT012800+63 : READA : POKEI,A ; NEXT 





















40135 
40200 
4 1 000 
41010 
41020 
4103Q 
41U4 Ci 
41050 
41069 
420U0 
42005 
42008 
42010 
42015 
42020 

42025 

42026 
42030 

61337 

61338 
61333 
62000 
62005 
62010 
62U15 
62020 
62025 
62030 
62035 
62840 
62041 
62045 
62O50 


PQKE53270,PEEK<53270 >OR16 : P0KE53232,8 
G0T025 

DATHO,0,1,5,21,21,85,255 

DATH0 .* 0 , b4 , 30 .■ 8434 .■ 35 , 255 .■ 255 .■ 35 .• 21 .• 21 .■ 5 , 1 , 0 .■ 0 

DRTA255,85,84,84,80,64,0,8 

DA ! 1136 , 68.. 34 .• 17.- 136.. 68.. 34 .• 17 

DRT H1 7 , 34 , 63 .• 136 .■ 17 .■ 34 .• 63 .• 136 

DR 1 R1 , 25 4 .i 8 .• 11 7 .■ 34, 68 , 136 

DRTR128.■ 64.. 32.• 16.. 136.• 68.• 34 .• 17 

POKEV+29.• 133 : POKEV+23, 128 
Db-10 ; b-50 ,41 =40 
POKEV+15,85 

POKEV+16,0 POKEV+21,223 

PUKEV, 4 ; PGKEV+1 .■ 136 POKEV+12 .• 4 : POKEV+13,136+37 
POKEV+5,O : POKEV+7,0 
P0KE54236, 15 
RETURN 


REM m.DRTR PER GLI SPRITE*** 


V-53248 

E ( 0 > =248 E ( 1 > =243 B C 2 > =250 B < 3 > =251 E C 4 > =252 : B < 5 > =253 : B '■ 6 > =254 B C 7 > =255 
N3=7: IF NS=0THENRÈTURN 
FORA-1TONS 

RERDSK, MI, M2 : IFSK=0THENP0KEV+28, PEE1 'V+28>RHD255-2 T< fi- 1 > ; GOTO62030 
POKEV+28,PEEK<V+28>0R2f<fì-1> ; POKEV+37,MI POKEV+38,M2 
R E A D U U P U K E V+3 3+R, L U P U K E2033+fi, E H—1 > 

FORC-B< fi-1 > *64T0B<fì-1 ;• *64+63 RERDG T OKEC, Q NE4T NE4T 
POKE2041,250•POKE2042,251 POKE2043,251 P0KE2844,252 
POKEV+28,243 

P0KE2846,243 P0KE2U47•254 

POKEV+46,1O POKEV+45,12 POKEV+41,2 P9KEV+42,2 : POKEV+40,0 : RETURN 


63000 
63005 
6301U 
63015 
63020 


DRT R1,2,6,8 

DRT R0,40,0,0,170,0,2,i70,128,2,235•128,10,2 
DATA170, 168, 42, 170, 168, 170,130,17G•170,190, 
DRT fì153,1G5,105,105,30,158,165,22, 178,148,2 
DHT fì 1,105,64, 1,85,64, y, 85, y, 0,20,0, y, y, y, G 


160, 42 

"0,170,170,178,102, 
170,148,5,178,80 


178 


63025 DATA1,2,6,12 

63030 DRT AG,40,0,8,178,8,2,17G,128,2,170,128,10,170,168,42 

63835 DATAi70,168,42,178,168,170,178,178,178,178,178,178,178,170,42,178 

63840 DRTfì168,42,170,168,18,178,168,2,178,128,2,178,128,8,170,8 

63845 DRT AG, 48,8, Q, 8,8,0, G, 8,0, y, y, 8, y, v , y 

6305U DfìTfiO,2,6, 8 

63055 DATA 8,24,8,8,24,0, 8,68,8,8,68,8,8,24,8,8 
63868 DRTR24,8, 8, 24,8,8,24,8,8,24,8,8,24,8,0,24 
63865 DATR8,8,24,y,8,68,8,8,36,U,8,182,8,8,66,8 
63870 DAT ACI, G, 8,8,0,8, 8, 8, 8, 8,8,8, y, 8 . 8 


63075 DATAG,2,6,18 

63888 DRT fi8,23,0,8, 14,8,0, 7,8,8, 14,8,8,28,8,8 
63835 DRTR56,8,8,23,8,8,14, y,y,7,8,y,14,8,8,23 
63890 DRTR8,8,56,8,8,28,8,8,14,8,8,7,G,0,14,8 
63035 DRTRG,23,8,8,56,8,8,23,8,8,14,8,8,7,8,8 
63108 DATAI,2,6,3 

63185 DRT AG, 8,8,8, 8, y, Ci, 8,8, 8, 48, 8,8, 178,8,2 

63118 DRTA178,123,18,178, 168,5,85,38,5,85,38,18,178,160,2,1 70 

63 115 DRTR123,8,178,8,8,40,8,8,8,8,8,8,8,8,8,8 

63128 DRTAG, G, 8,0,0,8,8,8,G,8,8,8, 8, 0, 8, 8 

63125 DATA1,2,6,4 

63138 DATR12,12,8,64, 0 , 138,0,32,3,1,123,8,32,8,8,12 
63135 DATA132,4,G,8,8,8,4,2,43,2,43,1,43,8, 0 ,3 
63148 DRTA3,123,4,64,12,123, 0,8,3,3,8,1,8,13,8,12 
63145 DRTR0,8,8,0,16,192,288,8,8,0,3,3,3,0,43,U 
63158 DATA1,2,6,18 

6 3155 DRTA5,35,64,1,35,8,2, 178,8,18,233,i23,18,154,123,2 
63168 DAT A170,8,2,102, 8,2,154,8,8,163,8,255,255,252,255,255 
66:16 5 D A T A252,255,223,252,243,255,68,243,255,68,240,8,68,24G, 8,6 8 
63178 DRTR240,8,68,168,0,48,168,8,48,38,8,20,16,8,16,8 
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Zgorbyus 



Un programma dedicato ai piu piccolii quali, oltre a divertirsipotranno iniziare ad assimilare quei con¬ 
cetti di alto, basso, destra, sinistra per loro a volte un po ' "misteriosi". Si tratta dunque di un esercizio- 
gioco che si rivelerà senz'altro abbastanza efficace e di valido aiuto. 

ZGORBYUS è un piccolo marziano che deve essere aiutato a raggiungere la propria astronave "par¬ 
cheggiata" nello Spazio. L'unico problema è che a causa di muri molto piu alti di lui che si trovano un po' 
dovunque , ZGORBYUS non riesce a vederla: dovrà perciò essere guidato negli spostamenti a sinistra e 
a destra, in alto e in basso. Volete aiutare il piccolo ZGORBYUS a raggiungere felicemente la sua astro¬ 
nave? E allora , forza! Chi riuscirà a trovare la strada piu breve?! 
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issisi sii issisi 5 


::: 


Vie 20 


1 F'RIHT'73" 

10 rem ****************** 

11 REM * * 

12 REM * ZGORBVUS * 

13 REM * * 

14 REM * BV * 

15 REM * * 

16 REM * MARINO CORETTI * 

17 REM * * 

18 REM * LIST-SCUOLA * 

19 REM * * 

20 rem ****************** 

25 R$="ZGORBVUS" 

30 R$= " ai" : FOR-J = 1T011 : R$=R IGHT $ <R$, 1 > +LEFT t < Rt , 1 > 

40 PRI NT " □*»»»»»» [pIMpMpMpMPM ' ' ; R$ ; A$ : FORfi=0TO300 : NE NT : NEXT 
50 FORR=1T03008 ; NEXT 
60 GGSUB1000 : PR I NT " XI" 

100 POKE52,28 : PCKE56,28 : P0KE36869, 255 : POKE650, 128 
110 P0KE36879, 31 

120 FORJ=0T031•RERDH:P0KE7168+J,H:NEXTJ 
130 DRTR66 .■ 36 , 60 .• 36 , 60 .■ 24.. 38 .• 66 
140 DRTR129 .• 66 .• 60 .• 255,255.. 255, 60 .• 38 
150 DRTR255,129, 129,129,129,129,129,255 
160 DRTR1,0,0,0,0,0,0,0 
170 F0RM=7680T07701 :POKEM,3 :NEXT 
180 FORM=7680T08164STEP22:POKEM,3 :NEXT 
190 FORM=8164T08135 :POKEM,3 : NEXT 
195 FORM=7701T08165STEP22■NEXT 
200 F 0 R J -1T 010 0 

210 X=INT < RND<1)*20+1>:V=INT(RND<1>*20+1> 

2 2 O P U K E i 7 6 o 0+X+2 2 * V, 2 : P U K E 3 tì 720+7680+X+22* V, 0 
230 NEXT.J 

300 K=8152•P0KE7712,1:P0KE7712+30720,5 

310 F 0 R G = 1T0300 

320 IFPEEK<K >=2THEN420 

330 IFPEEK(K > = 1THEN440 

335 IFPEEK <K>=3THEN42Q 

3 4 O P U K E K, 0 : P U K E K+30720,2 
350 GETR* 

360 IFR$=""THEN350 
365 POKEK,0 : POKEK+30720,1 
370 IFA$="R"THENK=K-22:Z=Z+1 
380 IFR$="Z"THENK=K+22:Z=Z+1 
390 IFR$=","THENK=K-1 :Z=Z+1 
400 I FA*= ". " THENK=K+1 : Z=Z+1 
410 NEXTG 

420 P0KE36869,240 : FRI NT "IT : PRINT" S13EI IN PRIGIONE !" 

425 FORI = 1TO10 :GETR$:NEXT:POKE650,0 
430 GOTO510 

440 P0KE36869,240 : PR I NT " 71 " : PR I NT " HRI RfìGG I UNTO " 

450 PR I NT " WWL " ASTRONAVE " : PR I NT " mi N " j Z ; " MOSSE" 

455 FORI = 1TO10 :GETA$:NEXT:POKE650,0 

460 FORJ=1T03:RR=36878:BB=36876:POKEfìfì,15 

470 POKEBE,215:FORDB=1TO200 : NEXTDD 

480 POKEBE,228 :FuRDD=1TO200:NEXTDD 

490 POKEBE,215'FORDD=1TO200:NEXTDD 

500 POKEBE, 0 : POKEAR, 0 •' NEXT 

510 PRINT :PRINT : INPUT"CONTINUI <S/N >";R$ 

520 IFR$="S"THENCLR ; PRINT": GOTO100 
530 END 

1000 PRINT"□IL MARZIANO ZGORBVUS" 

1010 PRINT".«DEVE RAGGIUNGERE" 

1020 PR I NT " *L -• ASTRONAVE 11 

1030 PRINT "m ->RLTO":PRINT"Z >BRSSO" : PRINT", 

TRA" 

1040 PR INTRIDEVI EVITARE I QUADRA-TI " : PR I NT " SE I BORDI" 
1050 PRINT" PMnMPFREMI UN TASTO" 

1060 GETQT I FQf = " " THEN1060 
1070 RETURN:PRINT"□" 



->SINISTRA":PRINT". ->DES 
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SHARP MZ-700 


La tombola 

Le feste natalizie sono alle porte e il programma che presentiamo vi permetterà di sostituire l'antiquato 
"cartellone" della tombola con il più adeguato e moderno SHARP MZ-700. 

La gestione del programma è semplice e non sono auindi necessarie molte istruzioni: occorre inserire ini¬ 
zialmente il numero di cartelle vendute e il prezzo ai ciascuna affinché il computer possa provvedere alla 
suddivisione della somma raccolta. Se sul "cartellone"esce una combinazione vincente non ancora rea¬ 
lizzata dai giocatori il computer la segnala unitamente all'ammontare del premio: qualora / invece, uno 
o più gocatori realizzino una combinazione mai formata sul cartellone, è sufficiente premere il tasto "S" 
per "avvisare" il computer che quel premio è già stato assegnato. 

Struttura del programma. 

10-60 Titoli e dimensionamento vettori 

70-100 Suddivisione premi 

1 10-170 Simulazione grafica mescolamento numeri 

180-190 Scelta colore di sfondo e stampa cartellone 

200-280 Estrazione numero e sua assegnazione alle combinazioni 

290-340 Ricerca combinazioni realizzate 

350-510 Stampa premi e combinazioni durante la partita 

5000-5030 Subroutine musicale 

5200 Subroutine mescolamento numeri 

I 90 numeri del gioco sono assegnati al vettore A(90) e mescolati mediante la subroutine 5200 durante 
l'esecuzione della simulazione grafica (130-140). Ogni numero estratto viene diviso e moltiplicato per 
coefficienti fissi per ricavarne la posizione sullo schermo (200-210), per assegnarlo ad una delle 20 serie di 
5 numeri che determinano le combinazioni dei premi minori (vettore B(20) - riga210) non ché ad una delle 6 
serie di 15 numeri che determinano la tombola (C(6) - righe 220-280); dopo l'identificazione della serie di 
appartenenza, quest'ultima viene incrementata di una unità e, in funzione del valore raggiunto, determina 
la "uscita" dei premi (290-300 e 310-340). L'incremento progressivo della variabile S5 viene utilizzato per 
memorizzare i premi già assegnati ed evitare di segnalarli di nuovo ogni volta che si crea un'analoga com¬ 
binazione. 

Attenzione! Come qià segnalato in precedenti numeri della rivista, in alcune stringhe sono inseriti caratteri 
grafici (accessibili da tastiera mediante il tasto "GRAPH") che la plotter ha stampato sotto forma di codici 
ASCII esadecimali: nel listato tali codici sono sottolineati. A pag. 156 del manuale è riportata la tabella 
completa dei caratteri grafici con i rispettivi codici; ad esempio, il codice "C5" in riga 160 è relativo al ca¬ 
rattere grafico che si ottiene premendo (dopo il tasto "GRAPH") la lettera "T". 


10 REM*T0nB0LA* 

20 REI1*BT E. FABRI2I-1 984* 

30 REM*SHARP M2-700* 

40 CLR:C0L0R, ,2,6:PRINT"D":F0RK=2T037:CU 
RSORK,2 :PRINT"F1 " :CURS0RK, 22 sPRINTTl*' =N 
EXT :CURSOR0, 3 :F0RK= 1 T01 9 :PRI NTTABC23 " FI " 
;TfìBC37) ,, n_ M :NEXT 

50 T1$="FACCIAno":T2*="UNA PARTITA":T3$ 
*"A TOMBOLA":C0L0R,,7,1 :CURSORI 6,5:F0RK 
= 1 T0LENCT1*3 :PRINTf1ID*CT1*,K, 1 3 ; :„GOSUB50 
00 :HEXT:CURSOR14,9:FORK*1TOLENC T2* 3 :PRIN 
TMD*CT2A,K, 1 3 ; :GOSUB5000 :NEXT 
60 CURSORI 5,13:F0RK=1TOLENC T3$ 3:PRINTMID 
t(T3$,K,13 ;:GOSUB5000:NEXT:GOSUB5100:Din 
AC903,BC203,CC63 =F0RK=1TO90:ACK3=K:NEXT 
70 PRINT"B":PRINTTABC123"DIUISIONE PREM 
I"SPRINT:PRINT"Introdurre i seguenti dat 
i :PRINT : INPUT"Prezzo delle cartelle: 

";P2 :PRINT:INPUT"Numero cartelle uendut 
e : ";CU 
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SHARP MZ-700 


80 IN=PH*CU:QU=IN/50:PRINT:PRINTTABC 1 73 " 
PREDI" :PRINT:PRINT"AMBO : M ;TABC103USING"# 
#,###" ;QU*3:PRINT :PRINT"TERNO " ;TABC103U 
SING"##, ###";QU*5:PRINT:PRINT"QUATERNA'" 
;TABC103USING"##,###" ;QU*8 
90 PRINT:PRINT"CINQUINA:";TABC103USING"# 
#,###" ;QU*12‘.PRINT : PR I NT" TOMBOLA : " JTABC1 

03USING"##, ###" ;QU*22‘.PRINTTABC93"- 

:PRINT"TotaI e";TABC103USING"##, ###" ; IN 
JCURSOR20,23 : PRINT"Premi un tasto"; 

100 GET2*:IF2$=""THEN100 
110 PRINTC-» 6 3 "B" : CONSOLE 1 9,6:PRINTC,43"B 
":CONSOLE :CURSORI 0,3:PRINT[0,63"MESCOLIA 
MO I NUMERI 2" 

120 CURSORI 3,12:PRINT[0,6]" C1C2 
C2D5 ":FORK=1TO5:PRINTL0,63TABC133"C1 

D£" :NEXT:PRINTC2,3TABC103" C8C8C 

8C8C8C8C8C8C8C8C8C.8C8C8C8C3C8C8C8C8 " :CUR 
S0R15,10 

130 PRINT[0,63“ FFC3C3C3C3C3C3C3C3F0 ”:CUR 
SOR15,15:PRINT[0,63" ECC4C4C4C4C4C4C4C4DA 
•' :F0RK=1T025‘-CURSORI 5, 1 1 :PRINTC0,63 " EFC3 
C3C3C3C3C3C3C3F0 ":PRINTCQ,63TABC153" C5F1 
FIFT F1C7" :PRINTC0»6]TABC153" EFC3C3C3 
C3C3C3C3C3F0 ":PRINTC0,63TABC153" C5F1 FI 
Fi FIC7 ”:GOSUB5200 

140 CURSORI 5,11 :PRINT[0,6]"C5 FJ FI FI 
C7" : PRINTC0,63TABC153"EFC3C3C3C3C3C3C3C3 
F0' 1 :PRINTC0,6]TABC 153" C5F1F1 FJ C7" :P 
RINTC8, 63TABC1 53 " EFC3C3C3C3C3C3C3C3F0 " :G 
OSUB5200:NEXTK 

150 CURS0R19,10:PRINT[,63" ":PRINTC0,63 
TABC193"HHB 8A8F ":GOSUB5200:CURSOR19,9:PRI 
NT[,6]" "SPRINTC0a 63TABC 203 "tBBEE":PRINT 

f0,63TABC 1 93"EE_'‘ :GOSUB5200 
160 CURSOR20,8:PRI NT C,6 3 " ":PRINTC,63TAB 
C1 9 3 " ":PRINT[0,63TABC193"fflffl7D M :PRINTC0, 
63 TABC19 3 "7E M :GOSUB5200:CURSOR19,8 :PRI NT 
r,63" ":PRINTC,63TABC193" ":PRINTC0,63TA 
BC193"BBC5":PRINTC0,63TABC193"C5":G0SUB5 
200 

170 FORK=53668TO53468STEP-40:POKEK,71:PO 
KEK+2048,38:GOSU85000:GOSUB5200 -‘POKEK+20 
48,102:NEXTK 

180 F=INTCRNDC 1 3*5+33 .‘COLOR, ,0,F:PRINT"B 
" = CURSQR2,0 :PRI NT" O0E0EBEOE0E0EQE0E0E0E0 

F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0 

E0E0E0E0CE ":FORK=1T017 :PRINTTAB C 2 3" FD" ; T 
ABC 193" CAD4 "JTABC373 "fV":NEXT:PRINTTABC2 
3" CPE0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0 

E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0DD " 

190 E$=“ CBE0E0E0E0E0E0E0E0E0E0E0E0E0E0E0 
E0CAD4E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D3 

":CURS0R2,6:PRINTE$:CURS0R2,12:PRINTE$ :C 
URS0R2,19 :PRINT"Numero estratto:":S5=1 
200 FORK=1TO90:X=CACK3-INTCACK1/10. 13*10 
3*3:T=CINTCACK3/10.13*2 3 + 1 :1FX>17THENX=X 
+3 

210 CURSORX,Y:PRINTACK3:CURSORI 9,19:PRIN 


T" ":PRINTTABC183"B";ACK3:GOSUB5010 :Y=I 
NTCACK3/5.01+13 :BCT3=BCY3 + 1 
220 X=UALCRIGHT$CSTR$CACK33,133:1FX=0THE 
NX= 1 0 

230 IFCACK3 <313*CX<63THENCC13=CC13+1 :GOT 
0290 

240 IFCACK3<313*CX>53THENCC23=CC23+1 =GOT 
0290 

250 IFCACK3<613*CX<63THENCC33=CC33 + 1 :GOT 
0290 

260 IFCACK3.<61 3*CX>53THENCC43=CC43 + 1 :GOT 
0290 

270 IFCACK3 <913*CX<6 3THENCC5 3=CC53+1 :GOT 
0290 

280 IF CACO <913*CX>53THENCC63=CC63 + 1 
290 F0RU=1T06:IFCCW3=15THEN450 
300 NEXTW 

310 IFCBCT3=23*CS1=03THEN410 

320 IFCBCY3=3 3*CS2=0 3THEN420 

330 IFCBCT3=43*CS3=03THEN430 

340 IFCBCY3=53*CS4=03THEN440 

350 CURSOR0,23:PRINTC7,03"Qua Icuno ha ui 

nto? CS/N3 "j 

360 GET2$:IFE$="S"THEN400 

370 IF2$="N"THEN390 

380 GOTO360 

390 NEXTK 

400 ONS5G0TO410,420,430,440,450 
410 GOSUB5030:CURS0R2,20 :PRINT"AMBO:Lit" 
;USING"##,###";QU*3:S1=1 :S5=2 :GOTO490 
420 GOSUB5030:CURS0R21,20 :PRINT"TERNO =Li 
t"JUSING"##,###";QU*5:S2=1:S5=3:GOTO490 
430 GOSUB5030 :CURS0R2,21 :PRINT"QUATERNA : 
Lit"JUSING"##,###";QU*8:S3=1 :S5=4:G0T049 
0 

440 GOSUB5030 :CURS0R21,21 :PRINT"CINQUINA 
: L11" JUSING"##,###";QU*12 :S4=1 :S5=5:G0T0 
490 

450 GOSUB5030CURSORI 1,22 :PRINT"TOMBOLA : 
Lit"JUSING"##,###";QU*22:CURSOR0,23:PRIN 
TC7,03"Per un'altra partita premere <S> 

Il « 

J 

460 GET2$: IF2$="S"THEN40 

470 IF2$="N"THENPRINT"B" :CURSOR0, 23 .‘END 

480 GOTO460 

490 CURSOR0,23:PRINTC7,0 3"Per il prossim 
o numero premere <CR> "; 

500 GETi$:IFC2$=CHR$C 1333+CZ$="N"3THEN39 
0 

510 GOTO500 

5000 TEMP07 :MUSIC"+C1":RETURN 

5010 TEMP07 :MUSIC" A0B0C0D0E0F0G0" .‘RETURN 

5020 TEMP07 :MUSIC"-F0":RETURN 



5030 TEMP07 :MUSIC"E5G7E5G7R3E3G5E3G5E3G5 
":RETURN 

5100 F0RP=1TO3000:NEXT:RETURN 
5200 F0RJ = 1T05:X=INTCRNDC13*90+13:Y=INTC 
RNDC13*90+13 :0=ACX3:ACX3=ACY3:ACY3=D=NEX 
TJ : RETURN 
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VIC-20 



Teorema di Pitagora 

Nonostante la semplicità, diamo spazio anche a questi programmi - rispettivamente per il VIC-20 e lo 
ZX-SPECTRUM - inviati da due nostri giovani lettori / premiando cosi il loro sforzo e la loro volontà di 
collaborazione / ritenendo, che in ogni caso, il loro lavoro sarà utile a qualche collega di scuola!!! 


1 REM TEOREMR DI PITfiGQRfi 

2 REM BV DIEGO PLRTEROTI (ROMA) 
8 PRINT" 73" 


9 PRINT " 

/\ 


10 PRINT" 

/ \ 

ii 

20 PRINT" 

/ \ 

ii 

30 PRINT" 

/ \ C 

ii 

40 PRINT" 

/ 

ii 

50 PRINT" 

- 


60 PRINT" 

zr ■ 

1 M 

70 PRINT" 

\ sr ■ 

1 11 

80 PRINT" 

\ 3T ■ 

i m 

90 PRINT" 

\sr ■ 

1 11 

91 PRINT" 

A i-1- 

m 

92 PRINT" 

1 1 B 

n 

93 PRINT" 

i i 

ii 

94 PRINT" 

i i 

m 

95 PRINT" 

i_i 

m 

96 PRINT" 


H 



100 INPUT "TI SERVE IL LATO RE <Y/N)";A$ 

110 IF A$="V M THEN 200 

120 PRINT:INPUT"TI SERVE IL LATO BC <Y/N)";B$ 
130 IF B*="Y"THEN 200 

140 PRINT : INPUT"TI SERVE IL LATO AC <Y/N>";C* 
160 IF C$0"Y"THEN END 


165 GOTO 300 
170 END 

200 PRINT":)" : PRINTCALCOLO DELLA MISURA DI UN CATETO *.* " 

210 INPUT"QUANTO MISURA L' IPOTENUSA"; I 
220 PRINT:INPUT"QUANTO MISURA UN CATETO";D 

230 IF I<D OR D>ITHEN PRINT"UNA DELLE DUE MISURE E' SBAGLIATfl":G0T02 10 


240 1 = 1 T2 : D=DT2 

250 PRINT: PRINT"IL CATETO MISURA";SQR<I-D> 

260 END 

300 PRINT"T: PRINT "^CALCOLO DELLA MISURA DELL' IPOTENUSA#*" 

310 INPUT"QUANTO MISURA AB";Z 

320 PRINT:INPUT"QUANTO MISURA BC";X 

330 Z=ZT2:X=XT2:PRINT 

340 PRINT"L'IPOTENUSA MISURA";SQRCZ+X) 
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ZX Spectrum 



Teorema di Pitagora 



5 POKE 83609,255 
10 PRINT n *t***##*****#a**t*# 
20 PRINT "*TEOREMR H 
30 PRINT "** di Pittori * 
4.0 PRINT "** ©PiReNtE # 

50 PRINT "* * 

60 PRINT "****###t*********** 
65 

70 rem Calcolo de 11 'i po tenusa 
60 REM sapendo i cateti 

90 REM 

91 INPUT "Uuoi tt regole? (s/n 
ì"jA* 

92 IF qi="S" TMEN GO TO 4.00: I 
F Q$-"n" THEN GO TO 93 

93 INPUT "Uuoi il Citato 0 l ' i 
potenusa? (c/i)" ,ai 

94. IF al»" C " THEN GO TO 130: I 
F 'HEN GO TO 100 


97 REM 

100 INPUT "Inserisci il cateto 
1" ,a 

110 INPUT "Inserisci il cateto 
2 " b 

1 Ì 0 PRINT rt 21 , 0 ;"L'ipotenusa 
e ' :"JRT 21,20;SOR (at2 + bt2) : PR 
U5E 0: GO TO 91 
130 REM Calcolo dei cateti 
140 input "Ipo tenusa?",q 


141 INPUT "Cateto?",w 

142 IF q<W THEN PRINT RT 18,0; 
FLR5H l; INK l;"NON E'POSSIBILE 
CHE L'IPOTENUSR SIR PIU'PICCOLR 
DEL CRTETO! ! ! ": GO TO 140 

ISO PRINT RT 21,0;"Il cateto e' 

:";RT 21,18;SOR (qt2-Wt2>: GOT 
0 91 

400 REM tt*Reooie**ft 

410 CLS : PRINT " TEOREMR di 
Pitagora 

420 PRINT 

430 PRINT "Dato un triangolo :" 

440 PLOT 40,128: DRRU 0,-10: DR 
RU 0,-10: DRRU 0,-10: DRRU 0,-10 
: DRRU 10,0: DRRU 10,0: DRRU 10, 
0: DRRU 10,0: DRRU -10,10: DRRU 
-10,10: DRRU -10,10: DRRU -10,10 

450 PRINT rt 11,0;".rettangolo, 
secondo il TEOREMR di Pitagora,e 
' possibile dedurne la seguente 
regola : in un TRIRNGOLO RETTRNGO 
LO L'RRER DEL QURDRRTO COSTRUITO 

SULL'IPOTENUSR e'uguale alle so 
Rime delle aree dei quadrati cost 
rux ti sui cateti." 

460 PRINT RT 20 , 0 ;"Premi un tas 
to per tornare al calcolo": PRUS 
E 0 

470 GO TO 91 
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Orologio ad alta risoluzione 

Un breve listato, inviato dal sig. Pantaleo Savino, per mostrare le capacità del vostro CBM 64. 

Dopo il RUN (RETURN) vi sarà chiesto l'orario nella forma ORA-MINUTI-SECONDI (HHMMSS) 



10 PR I NT "iJDRA (HHMMSS) INPUT" 000000IUBMUT /' TI Si PR INT" J" : GOSUB 335 

15 DAT=49180 :CLEAR =43152* C0LR=49155 :PUNT=49158 !POKE 56576,PEEK( 56576)AND 252 
20 RETTA=49161:POKE 53272,PEEK(53272 ) OR 8:POKE 53265,PEEK<53265>0R321 SYS CLEAR 
30 C1=3:C2=0:POKE OAT+7,< 16*C2+C1):SYS COLR:POKE DAT+3,8 
40 FOR X=0 TO 354 STEP 6 

50 I =X* <r/l 80 s X 1 = 160 + 75*C0S( I ) : Y1 = 100-75*S INC I >:X2=160+76*COS< I ) l Y2«= 100-76*S INC I) 


W 





























290 

300 

310 


60 GGSUB 320-.NEXT X 
?0 FOR X=0 TO 270 STEP 90 

80 I=X*if/180!Xl = 160+75*COSC I ) : Y1 = 100-75*S INC I ) : X2= 160+85*COSC I) 

90 Y2=100-85*SINC I>:GOSUB 320 :NEXT X 
100 FOR X=0 TO 330 STEP 30 

110 I =X**/180:X1 = 16 l 75*COSC I)tY1 = 100-75*S1N< I>:X2=160+80*COSC I> 

120 Y£=100-30*SINC I>:G03UB 320:NEXT X 

130 H=VALC LEFTSf TI*,2)>:M=VALCMID*C TI*,3,2 ;) 

140 AH =450-30 *H-<M*.5): I=AH**/180 : X1 = 160 :Y1 = 100 :X2 =160+45*C0SC I ) 

150 Y2=100-45*S1N< 1):GOSUB 320 : X1 = 160 :Y1 = 100 :AM-450-6*MX I=AM**/180 
160 AM=450-6*M: I=AM*rf/180:X2=160+65*COSC I>:Y2=100-65*S INC I)*GOSUB 320 
170 SYS COLR:S=VALCRIGHT*<TI*,£)):IF S=0 THEN 220 

180 A=450-6*S: I=A*rf/180t POKE DAT + 3,8 : X1 = 160+68*COSC I):Y1 = 100-68*6 INC I> 

190 X2=160+72*COSC I >: Y2 = 100-72*S 1 NC I ): GOSUB 320 :A=A+6: I =A**/180:POKE OAT+3,0 
200 X1 = 160 +68*COSC I > : Y1 = 100-68*S INC I) 

210 X2=160+72*COSC I):Y2=100-72*SINC I):GOSUB 320JGOTO 170 

220 POKE DAT + 3,0: I= AM*«/180 : X1 = 160 :Y1 = 100 :Xc.■ 160+65*COSC I> « Y2■100-63 *SINC 1> 
230 GOSUB 320: I=AH*rf/180 : X1*160:Y1 = 100 :X2 160+45*COSC I):Y2=100-45*S INC 1) 

240 GOSUB 320: I=96*rf/180: X1 = 160+68*COSC I>:Y1=100-68*SINC I>:X2=160+?2*COSC I) 
250 Y2=100-72*SINC I>:GOSUB 320 

260 POKE DAT+3,8 : AH=AH-. 5 : I =AH*«f/'180 : X 1 = Y1 = 100 : X2= 160+45*COSC I ) 

270 Y2 = 100 -45 *S I NC I):GOSUB 320 : AM=AM-6 : I =r.M*«f/180 : X1 = 160 : Y1 = 100 
280 X2 =160 +65 *COSC I ):Y2=100-65*SINC I):GOSUB320 
IF VALCRIGHT*<TI*,£))=0 THEN 290 
GOTO 170 • 

END 

320 POKE DAT + 0,C XIAND255):POKE DAT+1,INTCX1/256):POKE DAT+4,C X2AND255) 

330 POKE DAT + 5,INTC X2/256):POKE DAT+2,Y1:POKE DAT+6,Y2:SYS RETTA:RETURN 
335 pp r mt ■■ F rn CARICANDO IL PROGRAMMA" 

338 PR I NT " aHHWilMI I N LINGUAGGIO MACCHINA" 

340 READ D*: PR INT "j 


SPRINTTABC 19>;D*xIF D*="*" THEN RETUR 

N 

350 D1*=LEFT*CD*,1 ):D£*=RIGHT*C D*,1) 

360 V = C ASCCD1*>-48+CC ASCC DI*)>64)*7))*16 
370 V = V+C ASCC D£*)-48+CC ASCC D2*)>64)*7)) 

POKE 4915£+C,V:C = C+1: GOTO 340 

4C,4C,C0,4C,75,C0,4C,9F,C0,4C,£1,C1,7F,BF,DF,EF,F7,FB,F0,FE,80^40,20 
10,03,04,02,0 1 ,00,00,00,00,00,00,00,00,AD,00,DD,29,03,49,03,85,FF,AD 
13 ,D0,29,03,69 ,F8 , A5 ,FF ,2A ,0A ,0A ,0A ,0A ,0A ,85 ,FE , AD , 18 ,D0 ,29 ,F0,46 ,FF 
6A,46,FF,6A,85,FF,60,20,24,C0,A5,FE,A0,00,85,63,84,62,A5,FE,18,69, IF 
85,28,A3,00,9 1,62,E6,62,D0,02,E6,63,A6,63,E4,28,D0,F2,A6,62,E0,40,D0 
EC ,60,20,£4,C0,A5,FF,A0,00,85,63,84,62,A3,FF,18,69,03,85,26,AD,23,C0 
9 1 , 62,E6,62,D0,02,E6,63,A6,63,E4,28,D0,F2,A6,62,E0,E8,D0,EC,60,20,24 
C0,AD,1C,C0,85,1A,AD,1O,C0,85,1B,AD,1E,C0,85,1C,A0,00,A5,1C,84,63,29 
470 DATA F8,43,0A ,26,63,0A ,26,63,85,62,68,1 8,65 ,62,85,62 ,A5,63,69,00,85,63,06 
480 DATA 62,26,63,06,62,26,63,06,62,26,63,A5,1A,29,F8,18,65,62,85,62,A5,1B,65 
63,85,63,A5,1C,29,07,65,62,85,62,A9,00,65,63,05,FE,85,63,A5,1A,29,07 
05,1D,AA,BD,0C,C0,85,28,A6,01,A0,40,78,84,01,A0,00,B1,62,86,0 1,58,A6 
1D,00,05,25,28,91,62,60,05,28,91,62,60,20,24,C0,A2,06,BD,1C,C0,95,1A 
CA , 10,F8,A5,1F,C5,1B,D0,04,A5,1E,C5,1A,B0,18,A5,1B,A4,IF,85 , IF ,84,1B 
A5,1A,A4,1E,85,1E,84,1A,A5,20,A4,1C,85,1C,84,20,A5,1E,38,E5,1A,85,FC 
A5,1F,E5,1B,85,FD,A0,0 1,84,29,A5,20,38,E5,1C,B0,08,49,FF,69,01 
A0,FF,84,£9,85,21 ,05 ,FC ,05 ,FD ,D0,03,4C ,B 1 ,C0 , A9 ,80 ,A0,00,85,27 ,84,26 
20 ,B1,C0,A5,1A,C5,1E,D0,1F,A5,1B,C5,1F,D0,19,A3,1C,C3,20,D0,13,AD,20 
C0,8D , 1C ,C0 , AD ,21 ,C0,8D , 1D ,C0 , AD ,22 ,C0,8D , 1E ,C0 ,60 , A3,26,38 ,E3,2 1 ,83 
26,A5,27,E9,00,85,27,E6,1A,D0,02,E6,1B,A5,FD,4A,A5,FC,6A,18,65,26,A9 
590 DATA 00,65,27,30,B6,A5,FC,18,65,26,85,26,A5,FD,65,27,85,27,A3,29,18,65,1C 
600 DATA 85,1C,A5,21,4A,65,26,F0,02,A9,01,65,27,AA,CA,30,93,A5,21,18,65,26,85 
610 DATA 26,A9,00,65,27,85,27,A5,1A,D0,02,C6,1B,C6,1A,4C,85,C1,60,* 


380 
390 DATA 
400 DATA 
410 DATA 
420 DATA 
430 DATA 
440 DATA 
450 DATA 
460 DATA 


490 DATA 
500 DATA 
510 DATA 
520 DATA 
530 DATA 
540 DATA 
550 DATA 
560 DATA 
570 DATA 
530 DATA 


# 


READY. 


V 





TEXAS TI 99/4A 

Istogrammi 


Un magnifico programma per il TI. 

Output grafico a colori sullo schermo e possibilità di stampa sulla carta degli istogrammi ottenuti. 

Un valido aiuto per chiunque si trova, spesso, alle prese con i grafici. 

Continua con questo programma la serie dedicata ai programmi gestionali e iniziata nello scorso nume¬ 
ro con l'estratto conto. 

Il programma offre molte possibilità. 

Una volta avviato, viene chiesto se si usa la stmpante e nel caso di risposta affermativa, il codice della 
stessa. 

Superata questa prima fase, introdurre il massimo valore dei dati in conseguenza del quale il computer 
dimensiona l'asse Y. 

Introdotte le etichette dei due assi e scelto il colore di visualizzazione sullo schermo, non rimane che intro¬ 
durre i dati numerici. 

Superata tale fase, alla comparsa della scritta "DATI OK", digitate END ed il computer vi chiederà le 
scritte di commento al grafico. 

Altri comandi sono: 

E RAS E Cancella l'ultimo dato impostato. 

P Attiva la stampante. 

N Reinizializza il programma. 

S Corrisponde a Stop e ferma quindi il programma. 

C Serve per cambiare il colore all'interno de! grafico. 


100 

REM 

* 

ISTOGRAMMI 

* 

110 

REM 

* 

PER TEXAS TI99 

* 

120 

REM 

*■ 

E STAMPANTE 

* 

130 

REM 

* 

TI BASIC 

* 

140 

REM 

* 

COPYRIGHT 84 

* 

150 

REM 

* 

LIST 

* 


160 CALL CLEAR 

170 FRINT TAB(10); M ISTOGRAMMI"::s 
180 FRINT : : : : 

190 INPUT "USI LA STAMPANTE (S/N) ? “sR t 
200 IF (R*< >"S")*<Rr< >"N">THEN 190 
210 IF R*="N" THEN 290 
220 F'R'NT = 1 

230 INPUT "CODICE DELLA STAMPANTE ? ":COD* 

240 GOTO 290 

250 CALL KEY<0,K,S> 

260 IF (S=0) +(K< >13)THEN 250 
270 CALL CLEAR 
280 RETURN 

290 PRINT TAB(8):"UN ATTIMO..." 

300 PRINT : : : : : : : j 
310 DIM CO(32) 

320 DIM A*(ll> 

330 A$(1)="000000000000007E" 

340 Af(2)="0000000000007E7E" 






























::: ::: 
HSH H: 


TEXAS TI 99/4A 


350 A$ ( 3) = " 00000000007E7E7E 
360 A* ( 4 ) = " 000000007E7E7E7E " 

370 A#(5)="0000007E7E7E7E7E" 

380 A#(6)="00007E7E7E7E7E7E" 

390 A$(7)="007E7E7E7E7E7E7E" 

400 A* (8) ="7E7E7E7E7E7E7E7E" 

410 Af (9) = "0101010101 10101 " 

420 A*(10)="01010101010101FF" 

430 A$(11)="FFO1010101010101" 

440 CALL SCREEN(13) 

450 CALL COLOR(9,5,1) 

460 CALL COLOR(10,9,1) 

470 CALL COLOR(11,11,1) 

480 CALL COLOR(12,15,1) 

490 COL(1)=5 
500 COL(2)=9 
510 COL(3)=11 
520 COL(4)=15 

530 FOR X=95 TO 158 STEP 8 
540 FOR CH=1 TO 8 
550 CALL CHAR(X+CH,A$(CH)> 

560 NEXT CH 
570 NEXT X 
580 CALL CHAR(42,"935539FF395593FF") 
590 CALL CHAR(91,"OOOOOOOOOOOOOOFF") 
600 CALL CHAR(92,A*(9)) 

610 CALL CHAR(93,A*(10)) 

620 CALL CHAR(94,A$(11)) 

630 CALL CLEAR 
640 SET=0 

650 CALL VCHAR(1,7,92,21) 

660 FOR X=1 TO 21 

670 CALL HCHAR(X,8,91,25) 

680 NEXT X 

690 CALL HCHAR(21,8,93,24) 

700 FOR TIC=5 TO 20 STEP 5 
710 CALL HCHAR(TIC,7,93) 

720 NEXT TIC 

730 CALL HCHAR(1,7,94) 

740 ST$="MAX. VALORE DATI ? " 

750 GOSUB 770 
760 GOTO 1190 
770 D1*=D* 

780 D*="" 

790 FOR ST=1 TO LEN(ST*) 

800 CALL HCHAR (24,2+ST , ASC (SEG:£ (ST$ , 
810 NEXT ST 
820 K1=1 

830 CALL SOUND(100,800,2) 

840 CALL HCHAR(23,7,42) 

850 CALL KEY(0,K,S > 

860 IF S=0 THEN 850 
870 IF K=13 THEN 1140 



ST,1))) 


880 IF K=7 THEN 1080 
890 IF K=8 THEN 980 
900 IF K=9 THEN 930 
910 IF K<>32 THEN 1030 

920 IF (ST$="ETICHETTA 1 ? ")+(ST$="ETICHETTA 2 ? ")+(ST$="LEGENDA 1")+<ST*="LEG 

ENDA 2")THEN 1030 

930 2340+1>32 THEN 840 

940 CALL HCHAR(21,M,93) 

950 M=M+1 


960 CALL HCHAR(21,N,42) 

970 GOTO 840 

980 IF M—1<8 THEN 840 




# 


13 


















TEXAS TI 99/4A 


990 CALL HCHAR(21, M,93) 

1000 M=M-1 

1010 CALL HCHAR(21,M,42) 

1020 GOTO 840 

1030 IF KI>25 THEN 840 

1040 CALL HCHAR(23,7+KI,K) 

1050 D*=D*S<CHR* (K) 

1060 KI =K. I +1 
1070 GOTO 840 

1080 CALL SOUND<300,300,2) 

1090 FOR ES=KI TO 1 STEP -1 
1100 CALL HCHAR < 23,7+ES,32) 

1110 NEXT ES 
1120 D*="" 

1130 GOTO 820 

1140 CALL HCHAR<23,1,32,32) 

1150 CALL HCHAR(24,1,32,32) 

1160 IF DIO" 11 THEN UBO 
1170 Df=Dll 
1180 RETURN 

1190 FOR X=1 TO LEN(D*> 

1200 IF (ASC(SEG*(D*,X,1))<48>+<ASC(SEG*<D*,X,1)>>57)THEN 1240 
1210 NEXT 

1220 IF (LEN(D*><1)+(LEN(D*)>5)THEN 1240 

1230 GOTO 1260 

1240 GOSUB 1870 

1250 GOTO 740 

1260 MD=VAL(D*) 

1270 SCA=(INT(MD/20)*20)+20 

1280 IF INT (MD/20) OMD/20 THEN 1300 

1290 SCA=SCA—20 

1300 DI0=100 

1310 LA*=STR*(SCA) 

1320 FOR t1K=l TO -2i STEP 5 
1330 FOR LAB=1 TO LEN(LA*) 

1340 CALL HCHAR(MK,2+LAB,ASC(SEG*(LA*,LAB,1))) 

1350 NEXT LAB 

1360 DIV=D10-25 

1370 SCA1=SCA*(DlV/100) 

1380 LA*=STR*(SCA1) 

1390 NEXT MK 

1400 ST*="ETICHETTA 1 ? " 

1410 GOSUB 770 

1420 IF LEN(D*)>25 THEN 1440 
1430 D*=SEG*(D*,1,24) 

1440 FOR LAB=1 TO LEN(D*) 

1450 CALL OCHAR(LAB,2,ASC(SEG*(D*,LAB,1))) 

1460 NEXT LAB 

1470 ST*="ETICHETTA 2 ? " 

1480 GOSUB 770 

1490 R=22 

1500 Y=7 

1510 GOSUB 1530 

1520 GOTO 1570 

1530 FOR LAB=1 TO LEN(D*) 

1540 CALL HCHAR(R,Y+LAB,ASC(SEG*(D*,LAB,1))) 

1550 NEXT LAB 
1560 RETURN 
1570 M=8 

1580 ST*="1=BLU:2=R0SS0:3=GIALLO:4=AZ" 

1590 GOSUB 770 

1600 IF (ASC(D*)< 49 > + (ASC(D*)>52) + (LEN(D*)>1)THEN 1580 

1610 C=VAL(D*)—1 

1620 IF SET=0 THEN 1770 

1630 CH=127 

1640 CHI=135 











TEXAS TI 99/ 


m 


1650 SE=SET-1 

1660 CST=13+SET—1 

1670 IF CST<17 THEN 1790 

1680 CST=CST—1 

1690 SE=SE-1 

1700 CALL SOUND(300,300,2) 

1710 D*="COLORE QK - ERASE 0 END" 

1720 V=1 
1730 R-24 
1740 GOSUB 1530 
1750 ST^="" 

1760 GOTO 1800 
1770 CH=95 
1780 CH1=103 

1790 ST*=" IMMETTI I DATI" 

1800 CALL HCHAR(21,M,42) 

1810 CALL HCHAR(21,M-1,93) 

1820 GOSUB 770 

1830 IF D$<>"C" THEN 1900 

1840 IF SET=0 THEN 1580 

1850 SET=SET +1 

1860 GOTO 1580 

1870 CALL SOUND(300,300,2) 

1880 ST*="ERRORE NEI DATI" 

1890 RETURN 

1900 IF D$="END" THEN 2330 
1910 IF D^O"ERASE" THEN 1960 
1920 CALL HCHAR(21,M,93) 

1930 CALL VCHAR(2,N,91,19) 

1940 CALL HCHAR(1,M,95) 

1950 GOTO 1770 

1960 IF (D*="P")*(PRNT=1)THEN 2560 
1970 IF D*="NEW" THEN 630 
1980 FOR X=1 TO LEN(D*> 

1990 D=ASC(SEG*(D$,X,1)) 

2000 IF (D<47) + ( D>57)THEN 2030 

2010 NEXT X 

2020 GOTO 2050 

2030 GOSUB 1870 

2040 GOTO 1820 

2050 D=VAL(D*) 

2060 IF D>SCA THEN 2080 
2070 GOTO 2100 
2080 GOSUB 1870 
2090 GOTO 1820 
2100 BAR-D/(SCA/20) 

2110 HT=INT(BAR) 

2120 RE=BAR-HT 

2130 TP=1+INT((RE*B>+.5> 

2140 IF TP<9 THEN 2160 
2150 TP=8 
2160 SE=C 

2170 CALL CHAR(CH+TP+(SE*8),A$(TP)) 
2180 CALL CHAR(CH1+<SE*8>,A*(8)) 

2190 CALL VCHAR(21-HT,M,CH1+(SE*8),HT) 

2200 CO(M)=C 

2210 IF HT>10 THEN 2250 

2220 CALL HCHAR(20-HT,N,CH+TP+(SE*8)) 

2230 CALL VCHAR(1,M,91,19-HT) 

2240 GOTO 2260 

2250 CALL HCHAR(21-HT,M,CHI) 

2260 IF M<32 THEN 2310 
2270 CALL SOUND(300,300,2) 

2280 ST$="DATI OK!" 

2290 GOSUB 770 


2300 GOTO 1790 

2310 M=M+1 

2320 GOTO 1790 

2330 CALL SOUND(500,800,2) 

2340 ST*="LEGENDA 1" 

2350 GOSUB 770 
2360 D2$=D$ 

2370 ST$="LEGENDA 2" 

2380 GOSUB 770 
2390 D3$=D* 

2400 DT=D2T 
2410 R=23 
2420 Y=7 
2430 GOSUB 1530 
2440 DT=D3* 

2450 R=24 
2460 Y=7 
2470 GOSUB 1530 
2480 CALL KEY(0,K,S> 

2490 IF S=0 THEN 2480 

2500 IF K=80 THEN 2560 

2510 IF K=78 THEN 630 

2520 IF K=83 THEN 2540 

2530 GOTO 2480 
2540 CALL CLEAR 
2550 END 

2560 OPEN #1:C0D$ 

2570 FOR X=1 TO 24 
2580 FOR P=1 TO 32 
2590 CALL GCHAR(X,P,Z) 

2600 IF Z<96 THEN 2620 
2610 Z=35 

2620 IF (Z<91)+(Z>94)THEN 2640 
2630 Z=95 

2640 PRINT #lsCHRS(Z); 

2650 NEXT P 
2660 F'RINT #1:"" 

2670 NEXT X 
2680 CLOSE #1 
2690 GOTO 1820 
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ZX-81 16K 



Atterraggio lunare 

Siete al comando di una navetta spaziale diretta verso BASE-LUNA. 

Purtroppo, proprio al momento di iniziare la manovra di ALLUNAGGIO, il computer di bordo che do¬ 
vrebbe controllare tutta l'operazione ha un guasto: spetta, dunque, a voi, in qualità di Comandante, far 
allunare "manualmente"la navetta. 

All'inizio della manovra la navetta si trova a 370 metri dalla superficie lunare, e viaggia alla velocità di 
30 m/sec. in orizzontale. 

Il controllo del veicolo è affidato ai tasti 5 e 7 che, rispettivamente, agiscono sulla forza orizzontale e 
verticale. 

Dovete arrivare piu vicini possibile a BASE-LUNA. (Ricordate che la velocità verticale ottimale per un al¬ 
lunaggio "morbido"è di 3m/sec. MAX. 


1 REM 
S REM 
3 REM 
4. REM 

5 REM 

6 REM 

7 REM 
© REM 

100 LET R = 370 
110 LET 0=30 
120 LET U-0 
130 LET C=SS 
14-0 LET P*0 
200 PRINT "RLT. 

PODR *• 

210 POR I«0 TO 63 
220 PLOT 1,0 
230 NEXT I 
24-0 UNPLOT 32,0 
300 FOR 1=1 TO 1ES 
310 PLOT P,fl/10 

320 PRINT RT 1,0;R;“ ‘^TflB 8;0; 
' ";TRB 16; U; " "; TRB 24;C;~ " 

330 IP A < 1 ÒR P<0 OR P > 63 THEN 


********************** 
• # 

* ATTERRAGGIO LUNARE * 

* # 

* Z X - 6 1 * 

* * 
********************** 


UEL-O UEL-U 


GOTO 1000 
340 LET R»aINKEY* 

350 IP C < =0 TMEN GOTO 400 
360 LET U *U ♦ 1 — ( 2 RND R^=“7'*) 

370 LET 0=0- (R $ = "5") 

380 LET C«C-(A$="7“ OR A*="5") 
400 LET R=R-U 
410 LET P=P +0/25 
420 NEXT I 

1000 IF RBS «J<3 THEN PRINT RT 10 
,0;”RTTERRRGGIO PERFETTO" 

1010 IP RBS U>»3 RND RBS U<5 THE 
N PRINT RT 10,0;"RTTERRRGGIO BRU 
SCO” 

1020 IP RBS U>5 THEN GOTO 1100 
1030 IF RBS <P — 32) >=3 THEN PRINT 
"RTTERRRGGIO LONTANO OR BRSE LU 

un” 

1040 IP RBS (P-32) > =6 THEN PRINT 
"BRSE LUNR NON UI RICEUE" 

1050 IP RBS U<3 RND RBS (P-32) <3 
THEN PRINT "SRLUE BUCK ROQERS" 
1060 STOP 

1100 PRINT RT 10,0;“UN CRATERE" 


Poker con dadi 

• 

Il programma simula una partita a POKER con i dadi. 

I dadi sono cinque e su ognuno di essi ci sono un 9, un 10 (D), un Jack (J), una Regina (Q), un Re (K) e 
un Asso (A). 

Dovete cercare di ottenere, naturalmente, la combinazione migliore e cioè: 

5 carte uguali 
4 carte uguali (POKER) 

A KQJ D (scala max.) 

KQJD9 (scala min.) 

3 + 2 carte uguali (FULL) 

3 carte uguali (TRIS) 

1 doppia coppia 
1 coppia 

A parità di combinazione su due mani, vince quella piu alta, es. : quattro Assi battono quattro 9. 


Il gioco: 

I dadi vengono lanciati ed al giocatore viene data la possibilità di rilanciare qualsiasi dado agitando 
il numero corrispondente. Es.: " 12" significa che si vogliono rilanciare i dadi 1 e 2. 


i 

5 

10 

15 

20 

25 

3© 

35 

4-0 

4-5 

50 

55 


REM POKER/DRDI 
RRND 

PRINT RT 8,10;"1 234 
FOR H = 1 TO 5 
GOSUB 100 
NEXT H 

FOR K = 1 TO 2 
INPUT Z$ 

IF Z$ = "" THEN GOTO 65 
LET H=CODE Z$-28 
GOSUB 100 

LET Z $ =Z $ (2 TO LEN Z$) 


5" 


60 GOTO 40 
65 NEXT K 

70 PRINT RT 20,0;"PREMI N/L PE 
R GIOCRRE RNCORfl" 

75 INPUT Zt 
80 CLS 

85 IF Z $ = "" THEN GOTO 10 
90 STOP 

100 PRINT RT 10,S+2*H;"9DJOKR"( 
INT (RND*6+1)) 

105 RETURN 


76 






















Video picture 

Una delle caratteristiche di maggior pregio del SECA SC-3000 è l'enorme potenzialità grafica. 

Questo programma abbastanza semplice è simile a molti altri apparsi sul mercato italiano e destinati ad 
altri computer. 

Trasforma lo schermo del vostro televisore in un bianco foglio da disegno su cui potrete disegnare usan¬ 
do il joystick o la tastiera. 

Sono molte le opzioni disponibili. 

Lo schema è il seguente: 

1 NERO 

2 VERDE 

3 BLU 

4 AZZURRO 

5 ROSSO 

6 GIALLO 

7 PORPORA 

8 GRIGIO 

S Premendo questo tasto si entra nel modo SPEED in cui si sceglie la distanza tra un pixel e l'al¬ 


tro. Per uscire da questa routine premere il tasto numerico compreso tra I (linea continua) e 8 
(salti di otto cifre). 

C Con questo tasto si entra nel modo JUMP con cui si cancella l'ultimo pixel impresso sullo 
schermo. 

P Attiva la funzione PAINT (X, V), C usando il colore prescelto e la posizione raggiunta 
disegnando. 

A Con questo tasto si entra nel modo AUTOMATICO in cui il computer "disegna" automatica- 
mente. Per lasciare questa funzione bisogna premere T ed entrare quindi nel modo TRACK. 

N Equivale a NEW', pulisce il foglio per ricominciare a disegnare una nuova opera d'arte 
Il joystick dirige l'immaginaria penna sullo schermo. Per chi ne fosse sprovvisto, è possibile usare la ta¬ 
stiera ed in particolare i tasti U, I, O, J, L, M, ", ", ", ". secondo lo schema che appare appena si avvia il 
programma. 

Buon divertimento. 


10 CLS:SCREEN 2,2:C0L0R1,5 

20 CLS SPRINT" SEGA SC-3000 UIDEO P 

ICTURE" 

30 CURSORI27,70 SPRINT"I" 

40 CURSOR100,100:PRINT"U":CURS0R154, 10 
0 :PRINT"0" 

50 CURSOR80,120 SPRINT"J":CURS0R174, 120 
:PRINT"L" 

60 CURSOR100,140:PRINT"n"CURSORI54, 14 
0 :PRINT"." 

70 CURS0R127,170:PRINT"," 


UIDEO PICTURE 


SEGA SC-3000 UIDEO PICTURE 
l 

U 0 
J L 

n 

SCHEMA FUNZIONE TASTIERA 


# 

# 


UIDEO PICTURE 


SPEED C FUORI SCALA 1 

PLOT 

SINGLE 

INIZIO? 
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Sega SC 3000 



80 LINEC127,853-C127,1653,7 
90 LINEC90,1203-C169, 1203i7 
100 BEEP2 

110 FOR T=1TO200:NEXT T 

120 CLS :SCREEN 2,2 :C0L0R1,15,C57,573-C 

254,1913,5 

130 0=127:U=96:C=1:S=1:CURS0R8,0:PRI NT 
"SPEED":D=1 

140 CURS0R8,8:PRINT"PLOT":CURS0R8,16 :P 
RINT"SINGLE" 

150 LINEC57,1913-C254,1913,1 :LINEC254, 
573-C57,573,1 

160 LINEC254,1913-C254,573,1:LINEC57,5 
73-C57,1913,1 

170 LINEC57, 1913-C254,1913,7:LINEC254, 
573-C57,573,7 

180 LINEC254,1913-C254,573,7:LINEC57,5 

73-C57,1913,7 

190 P1=STICKC13:T$=INKEY$ 

200 IFT$ = "T" THEN X=1 :BEEP0:GOTO 700 
210 IFT$="A" THEN R=1 
220 IF R=0 THEN 240 
230 P1 = INTCRNDC13*83 + 1 :BEEP1 
240 IFP1 = 10RT$ = "I"THENU=U-S: GOTO 380 
250 IFP1=50RT$=","THENU=U+S : GOTO 380 
260 IFP1=70RT$ = "J"THEN0=0-S :GOTO 380 
270 IFP1=80RT$="U"THEN0=0-S:U=U-S:GOTO 
380 

280 IFPl=60RT$="n"THEN0=0-S:U=U+S:GOTO * 
380 

290 IFP1=30RT$="L"THEN0=0+S: GOTO 380 
300 IFP1=20RT$="0"THEN0=0+S:U=U-S:GOTO 
380 

310 IFP1=40RT$="."THEN0=0+S:U=U+S:GOTO 
380 

320 IF T$ = "C" THEN 680 

330 IFT$="N" THEN CLS:GOTO 120 

340 IFT$="S"THEN540 

350 IFT$="P"THEN850 

360 IFP=0 THEN 470 

370 GOTO 150 

380 IF 0<57ANDU<57 THEN 0=58=U=58:GOTO 
530 

390 IF 0>254ANDU>191 THEN 0=254 :U=191 : 
GOTO 530 

400 IF0<57ANDU>191THEN0=58:U=191:GOTO 
530 

410 IF U<57AND0>254 THEN U=58:0=254:G0 
TO 530 

420 IF0<57THEN0=58:G0T0 530 
430 1F0>254THEN0=254:GOTO 530 
440 IFU<57THENU=58:GOTO 530 
450 IFU>191THENU=191 :GOTO 530 
460 C0L0R5,5 :CURSOR80,0 :PRINT"[ FUORI 
SCALO ]" 

470 IF 0=127ANQU=96 THENGOSUB 890 
480 IF 0=254THEN A=1:G0SUB 940 
490 TF U=191THEN A=2:G0SUB 950 


500 PSET CO,U 1,C 


510 GOTO 150 
520 GOTO 150 
530 COLORI,5:CURSOR80 
SCALA ]":GOTO 150 
540 COLORI , 5 :‘CURSOR80 
550 T$=INKET$ 

IFT$="1" THEN S=1 
IFT$ = "2" THEN S=2 
IFT$ = "3" THEN S=3 
1 FT$ = "4" THEN S = 4 
IFT$="5" THEN S=5 
610 IFT$ = "6" THEN S=6 
620 IFT$="7" THEN S=7 
630 IFT$ = "8" THEN S=8 
640 BEEP 

650 IFUAL C T $ I> 80RUAL C 
660 C0L0R5,5 :CURSOR80 
670 GOTO 150 
680 GOSUB 960 
690 C0L0R5,5 :CURSOR80 
TO 1 50 

700 COLORI,5 :CURS0R8, 
710 R=0 


, 0 : PR I NT 11 [ FUORI 


, 16 :PRI NT "SPEED 1 


560 

570 

580 

590 

600 


: GOTO 
:GOTO 
: GOTO 
: GOTO 
: GOTO 
GOTO 
: GOTO 
GOTO 


640 

640 

640 

640 

640 

640 

640 

640 


T$3 <1THEN550 
, 16 SPRINT"SPEED" 


,8 :PRINT"JUnP":G0 
24 :PRI NT"TRACK" 


720 T$=INKEY$ 

730 IFT$="1" THEN C=1 
740 IFT$="2"THENC=2 
750 I FT$ = "3"THENC=4 
760 IFT$="4"THENC=5 
770 IFT$="5" THEN C=8 
780 I FT$="6"THENC=10 
790 IFT$="7"THENC=13 
800 IFT$="8"THENC=14 
810 BEEP 

820 IFUALCTS1<1ORUALCT$1>8THEN720 
830 C0L0R5,5 :CURS0R8,24 :PRINT"TRACK" 
840 GOTO 150 

850 COLORI, 15 :CURS0R8,32 :PRI NT"PAI NT" 
860 PSET CO,U),C:BEEP2 
870 GOSUB 980 
880 GOTO 150 

890 COLORI,5 :CURSOR 80,40:PRINT" INIZI 
0 2 " 

900 FOR T=1TO100:NEXT T 
910 C0L0R5,5 :CURSOR 80,40:PRINT" INIZI 
0 2 " 

920 BEEP :PSET CO,U],C 
930 RETURN 
940 BEEP 2 :RETURN 
950 BEEP 2 :RETURN 

360 COLORI,5 :CURSOR80,8:PRINT"JUNP":F0 
R T=1TO100-NEXT T : PRESET CO,UI:BEEP 
970 COLOR5,5:CURSOR80,8:PRINT"JUMP":RE 
TURN 

980 PAINT CO-1,U+13,C 

990 C0L0R5,5 : CURS0R8,32 :PRI NT"PAINT" 
1000 RETURN 


78 



















::: iti kHHs ÌBHH 

* Ili 3 Ili 

IH IH IH 




ZX Spectrum 16/48 K 


Il treno artimetico 

Addizioni, sottrazioni e moltiplicazioni non sono il vostro forte?? Il Treno Aritmetico vi aiuterà ad eserci¬ 
tarvi; dalle risposte date ai auesiti posti dipenderà l'arrivo a destinazione del vostro trenino. 

Il capostazione è pronto a dare il via,... e voi?? 


1 

REM 

*********************** 

2 

REM 

* * 

* * 

3 

REM 

* 

IL TRENO * 

4 

REM 

* 

* 

5 

REM 

* 

ARITMETICO * 

6 

REM 

* 

* 

7 

REM 

* ZX 

-SPECTRUM 16K/48K * 

8 

REM 

* * 

* * 

9 

REM 

*********************** 

10 

REM 




11 GO SUB 303 

12 BORDER 4-: PRPER 4: INK 0: C 
LS ; PRINT RT 6,5; "INSERISCI IL 
TUO NOME" 


14 

INPUT N$ 



15 

CLS 




16 

PRINT TRB 

2;"CIRO, 

"; n$ 

18 

LET 

V = 10 



20 

LET 

X =0 



30 

PRINT RT 3 

,0; "SCEGLI FRA : 




1 - 

ADDIZIONI 




2 - 

MOLTIPLIC 

AZIONI 


3 - 

SOTTRRZIO 

NI" 





40 

INPUT A$ 



50 

LET 

A = INT 

( RND *10) 


60 

LET 

B = INT 

(RNDi10) 


70 

LET 

C = I NT 

( RND *10) 


80 

LET 

D = INT 

(RND*10) 


85 

LET 

E = INT 

( RND *10) 


87 

LET 

F = INT 

( RND *10) 



90 CLS 

95 BORDER 6: PAPER 6: INK 0: C 

LS 

100 PRINT RT V, X; *'T 
110 PRINT RT Y+1,X, 

120 PRINT RT V +2,X; 

130 PRINT RT 13,0;" 


14-0 PRINT RT 0,0; "CI UEDIAMO IN 
STAZIONE" 

150 IF R $ = " 1 " 

; R; " + " ; B 
160 IF R $ = " 2 " 

; c; " * , d 

165 IF R$="3" 

; e,F 

170 LET H=R+B 
180 LET K=C*D 
185 LET U=E-F 
190 INPUT Z 
200 IF R$="l" 

0 250 

210 IF R$="2" 

O 250 

215 IF R$="3" 

O 250 

21© FOR U=1 TO 3: BEEP .1,-30: 
NEXT U 

220 PRINT RT 15,W FLRSH 1," SB 
AGLIRTO!" 


225 

226 

LET X=X-1 

IF X<0 THEN CLS : 

GO TO 

18 

230 

240 

250 

252 

PRUSE 100 
GO TO 50 
PRINT RT 9 
IF A $ = " 1 " 

, x+ 2 ; ■■Mm 

RND Z = H 

THEN 

PR IN 

T RT 
253 

5,3,"=",H 
IF R$="2" 

RND Z=K 

THEN 

PR IN 

T RT 
254 

5,3;"="; K 
IF A $ = " 3 " 

RND Z=U 

THEN 

PR IN 

T RT 
255 
265 

5,3;"=";U 
LET X=X+1 
IF X = 10 OR 

X = 13 OR X = 15 

THE 


N PRINT RT 15,3;"Bene ";N* 

266 IF X = 10 OR X = 12 OR X = 15 THE 
N PRINT RT 16,3;"andiamo avanti" 
270 IF X <24- THEN GO TO 300 
272 BEEP .4-, 19: BEEP .2,10 
275 PRINT RT 12,29;"|" 

278 PRINT RT 13,29;"|" 


THEN 

PRINT 

RT 

5,0 

THEN 

PRINT 

RT 

5,0 

THEN 

PRINT 

RT 

5,0 


RND 

I 

II 
N 

THEN 

GO 

T 

RND 

Z=K 

THEN 

GO 

T 

RND 

N 

II 

C 

THEN 

GO 

T 



280 PRINT RT 14-,20; FLRSH 1;" B 
RRUO " 

285 PRINT RT 16,20; FLRSH l;Nf 

286 LET t =FN t ( ) 

288 PRINT RT 20,1;"Tempo impieg 
ato= t-tl;" secondi" 

289 PRUSE 200: CLS 

290 PRINT RT 10.5; FLRSH 1; " . . . 
RL PROSSIMO UIRGGIO": STOP 

300 PRUSE 50 

302 GO TO 50 

303 BORDER 2: PRPER 2: INK 7: C 
LS 

305 PRINT RT 7,9;"I L T R E N 

O" 


306 PRINT RT 11,7;"R R I T M E 
T I C O" 

307 PRUSE 300 

308 CLS 

310 BORDER 5: PRPER 5: INK 1: C 
LS 

311 PRINT RT 0,0;" IL Treno st 
a aspettando il UlRdel Capo Staz 
ione." 


312 PRiNT 

313 PRiNf -per farlo muovere de 
vi risponde-re corre11amen te ai 
quesiti che ti verranno posti." 

314 PRINT 

315 PRINT "Se la risposta non s 
ara' corret-ta,i l Treno tornerà' 

indietro diuna posizione." 

316 PRINT : print "Devi anche c 
ercare di impiegare meno tempo p 
ossibi le." 

317 PRINT 

318 PRINT "Il tempo impiegato v 
erra' visua-iizzato all'flrrivo." 

319 PRUSE 1000: CLS 

320 DEF FN tl)=(65536*PEEK 2387 
4+256*PEEK 23673+PEEK 23672J/50 

325 LET t1=FN t C) 

350 RETURN 


CI CEDIAMO IN STRZIONE 


5 «4*20 


& 


CI UCDIRMO IN STRZIONE 


0 * 1-0 


* 


Bene Le L la 
andiamo avanti 
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ZXS1/16K 




Nitro 

Avete davanti a voi una fila di pericolose barre di nitroglicerina: voi e lo ZX, a turno, dovrete rimuoverle 
una due o tre alla volta!!! 

L'ultima barra rimasta esploderà ... con il giocatore di turno!!! 



& 



1 REM ********************* 


2 REM * * 

3 REM * NITRO * 

4- REM * * 

5 REM * Z X - S 1 * 

6 REM * * 


7 REM ********************* 

8 REM 
20 SLOU 

100 GOSUB 2000 
110 RRND 

120 LET N=21+INT (12*RND) 

130 LET 5=0 

14-0 FOR R=0 TO N-l 

150 FOR B=9 TO 6 STEP -1 

160 PRINT RT B , R; "■ " 

170 NEXT B 
180 NEXT R 

190 PRINT RT 14/0; BRRRE DI NI 
TRO" 

200 PRINT RT 16,0;"OURNTE NE PR 
END I 7" 

210 LET T =CODE INKEY$-2Q 
220 IF T <1 OR T > 3 OR T>N THEN G 
OTO 210 

230 PRINT RT 16,0;5*;RT 16,0;"N 
E PRENDI ";T 
24-0 LET N-N-T 

260 FOR RcSfN+T TO S+N STEP -1 

260 FOR B=6 TO 9 

270 PRINT RT B , R ; " ** 

280 NEXT B 
290 NEXT R 

300 PRINT RT 14,0;N; " " ; RT 14,3 

;"BRRRE RIMRSTE" 

310 IF N =0 THEN GOTO 700 
320 IF N = 1 THEN GOTO 800 
330 PRINT RT 16,0,"PREMI UN TR5 
TO OURNDO TOCCR R ME";5* 

340 IF INKEY $ = "" THEN GOTO 330 
350 LET R = N —4 *INT (N/4) 

360 LET C=R+3-4*INT ((R+3)/4> 

370 IF R = 1 THEN LET C=1+INT (3* 
RND ) 

380 LET N =N-C 

390 PRINT RT 16,0;5*;RT 16,0;"N 
E PRENDO...C 
400 FOR R=S TO S+C-l 
410 FOR B =6 TO 9 
420 PRINT RT B,R;“ " 

430 NEXT B 
440 NEXT R 

450 PRINT RT 14,0,N," " 

460 LET 5=S+C 


470 IF N=0 THEN GOTO 800 
480 IF N = 1 THEN GOTO 700 
490 GOTO 200 
700 GOSUB 1000 

710 PRINT RT 16, 0 ; "*** HO UINTO 
* * * " ; RT 18,0; X* (INT (1+5*RND) ) 
720 GOTO 900 
800 GOSUB 1000 

810 PRINT RT 16,0;"*** HRI UINT 
O * * *"; RT 18,0;Y$ (INT (1+5 *RND) ) 
900 PRINT RT 20,0;"UUOI GIOCRRE 
RNCORR 7 (S/N)" 

910 IF INKEY * = " N" THEN STOP 
920 IF INKEY*<>"S" THEN GOTO 91 

0 

930 CLS 
940 RUN 
1000 LET R =6 

1010 PRINT RT 14,0;5*;RT 16,0,5* 

;RT 7,5;" ";RT 8,5;" ";RT 9,5," 

1020 FOR B =0 TO R 

1030 PRINT RT R-B,5-B;"*“;RT R+B 
,5-B;"*";RT R+B,5+B;"RT R-B,5 
+B; " *" 

1040 NEXT B 

1050 FOR B =0 TO R 

1060 PRINT RT R-B,5-B;" ";RT R+B 
,5-B;" ";RT R+B,5+B;" ";RT R-B,5 

+B; " " 

1070 NEXT B 
1080 RETURN 
2000 DIM X *(5,32) 

2010 DIM Y*(5,32) 

2020 DIM 5*(32) 

2030 LET X *(1) »"CHE COMPUTER INT 
ELLIGENTE. . . " 

2040 LET X*(2)="*** REGOLE ?X,O. 

2050 LET X * (3) ="CHE NE PENSI 7" 
2060 LET X* (4) ="...NRTURRLMENTE" 
2070 LET X*(5)="PERCHE NON RBBRN 
DONI 7" 

2080 LET Y*(l)="*** CONGRRTULRZI 
ONI ***" 

2090 LET Y*(2)="SCOMMETTO CHE HR 
I BRRRTO..." 

2100 LET Y * (3) ="NE RIPRRLIRMO LR 
PROSSIMR UOLTR" 

2110 LET Y*C4)="...TI HO FATTO U 
INCERE" 

2120 LET Y*(5)="CHE FORTUNR SFRC 
CIRTR" 

2130 RETURN 
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Labirinto prezioso 

Un sacco pieno d'oro è stato lasciato al centro di un labirinto. Dovete cercare di raggiungerlo nel minor 
tempo possibile; vi muovete mediante i tasti cursore (5 , 6,7 e 8) 


1 

REM 


2 

REM 

* 

* 

3 

REM 

* LABIRINTO PREZIOSO 

* 

4 

REM 

* 

* 

5 

REM 

* ZX-81 - 16K 

* 

6 

REM 

* 

* 

7 

REM 

*********************** 

8 

REM 



10 

DIM 

R (21,21) 


20 

FOR 

1=0 TO 8 STEP 2 


30 

FOR 

<J = I + 1 TO 21-1 


40 

LET 

R(1+1,J)=128 


50 

LET 

fl(21-1,JJ=128 


60 

LET 

R (U , 1* 1) =128 


70 

LET 

R(J,21-I)=128 


80 

NEXT 

J 


90 

NEXT 

' I 


100 

LET 

R(3,11)=0 


110 

LET 

R(7,11)=0 


120 

LET 

R(13,11)=0 


130 

LET 

R(17,11)=0 


140 

LET 

R(11,11)=140 


200 

PRINT 


210 

FOR 

1=1 TO 21 


220 

PRINT " 


230 

FOR 

U = 1 TO 21 


240 

PRINT CHR* R ( I , J); 


250 

NEXT 



260 

PRINT 



270 NEXT I 

300 LET M = 1000 

310 PRINT flT 11,22;"$";H 

320 LET L =20 

330 LET C=ll 

332 PRINT RT L,C;"0" 

336 PRUSE 500 

34.0 PRINT RT L,C;"0" 

350 LET M=M-5 

355 IF M < 0 THEN GOTO 600 

356 IF M <100 THEN PRINT RT 10,2 
2;"PRESTO" 

350 PRINT RT 11,23,M;" 

370 LET N=CODE INKEYJ-28 

380 IF N < 5 OR N > 8 THEN GOTO 300 

300 LET LI*L- <N*7) (N=6) 

4.00 LET CI=C + <N=8> - (N=5) 

4-10 IF R (LI , CI) =14.0 THEN GOTO 5 
00 

420 IF R(L1,CI)<>0 THEN GOTO 35 

0 

425 PRINT RT L,C;“ " 

430 LET L=LI 
440 LET C=CI 
450 GOTO 340 

500 PRINT RT 10,22;"BENE" 

510 STOP 

600 PRINT RT 10,22;"TROPPO LENT 
O" 


Lettere in sequenza 

Alcune lettere dell'alfabeto vengono visualizzate, in sequenza, sullo schermo; vostro compito è cercare 
di ripetere la serie proposta. Ogni partita è composta da 10 sets procedendo nei quali aumentano, natu¬ 
ralmente, le lettere visualizzate e quindi la difficoltà. 

All'inizio del gioco potete scegliere il livello di difficoltà preferito-da 1 a 5. 

Dopo ogni sequenza premere "Y"per avere la successiva 


1 

2 

REM 

REM 

********************* 

3 

REM 

* lettere in sequenza 

4 

REM 


5 

REM 

* ZX - 81 1K 

6 

REM 

* 

7 

REM 

********************** 

8 

REM 

10 

SLOU 

28 

LET 

0=0 

30 

PRINT "LIU. 1-5" 

40 

INPUT L 

50 

LET 

L =55 —(L RND L> =1 RND L 

=5) *10 


100 

FOR 

P=1 T£ 10 

110 

CLS 

120 

LET 

A$ = " " 

130 

FOR 

B = 1 TO Pfl 


140 LET C$=CHR$ (38+25iRND) 
150 PRINT RT l,l;C$ 

160 LET R$=R*+C* 

170 FOR X=1 TO L 


180 NEXT X 

190 PRINT RT 1,1;“ " 

200 FOR X=1 TO 10 

210 NEXT X 

220 NEXT B s. 

300 PRINT "©URLI ERRNO 7" 

310 INPUT C$ 

320 PRINTtei 

330 IF C$<>R$ THEN GOTO 370 
340 PRINT "ESATTO" 

350 LET C=C*1 
360 GOTO 39è 

370 PRINT "SBAGLIATO. ERRNO:~ 
380 PRINT R$ 

390 PRINT RT 7,1;C;“ SU *';P; ( 
*' RNCORR 7" RND P<10) 

400 PRINT "BENE" RND C=10 

410 IF P=10 THEN STOP 

420 IF INKEY$<>'*S" THEN GOTO 42 

0 

430 NEXT P 
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Occhio alla zia 

Che ne direste di esercitarvi nel tiro con la fionda? Si? Ecco allora pronte su di un muretto otto lattine da 
abbattere e naturalmente la fionda: ma, attenzione agli imprevisti!!!! 

Istruzioni contenute nel listato. 



1 

REM 

*********************** 

2 

REM 

* * 

* * 

3 

REM 

* OCCHIO 

RLLR...ZIR! * 

4 

REM 

* 

* 

5 

REM 

* ZX-SPECTRUM 16K/40K * 

6 

REM 

* * 

* * 

7 

REM 

*********************** 

8 

REM 



10 

GO TO 9000: REM grafica & i 

struz 

ì O n i 



14 

REM 



15 

REM 

vari abi li 


16 

REM 



20 

LET 

pn =0 : LET 

tempo = 500 

25 

LET 

L a t t a =6 


30 

LET 

fionda=15 


35 

LET 

pi =0 : LET 

P i e t r a =0 

38 

REM 


39 

REM 

disp L ay 


40 

REM 


41 

LET 

C $ = " E 

LET d$=” F ” 

42 

LET 

g $="MNO" : 

LET h $ =" POR " 

45 

FOR 

b =5 TO 9 

STEP 2 

50 

PRINT RT b,0; 

INK 2; ” RBRBRB 


OBRBRBRBRBRBRBflBRBflBflBflBflBBfiBflBR 


BRBRBRBRBRBRBRBRBRBflBflBflBR" 

60 NEXT b 

65 LET y$="IK ”; LET Z$="JL M 
70 LET a $ = " C C C C C 
CCCDDDDD 
D D D 


73 LET COP= 29 

75 PRINT RT 3,0; INK 4-; a $ 

60 PRINT RT 20,fionda; INK 0;c 
$,TflB fionda; INK 0;d$ 

90 LET f i onda = f i onda +• ( INKEY$ = " 
7 " RND fionda <29) - aNKEY$ = "6" RN 
D fionda>0) 

99 IF pi<>0 THEN GO TO 101 
100 IF INKEY$ = "0" RND d $ < > " G " 
THEN LET pi =18: LET d$ = " G ** : L 
ET pietra:fionda 
110 IF d$ = " G •• RND Pi <>0 RND ( 
pi >10 OR pi <4-) THEN PRINT OVER 1 
;RT pi,pietra+l;“H" 


111 

IF 

d $ = " 

G 

" THEN LET pi=pi- 

115 

IF 

d $ = *• 

G 

" RND (pì > 9 OR pi 

<4) THEN 

PRINT 

RT pi+i,pietra+l; 

120 
RI NT 

IF 

RT 

d $ = " 

0, 0 ; 

G 

•• RND Pi =0 THEN P 


” : LET ,d $ = " F " 
130 PRINT RT 1,0;"PUNTI* “iPO 


14-0 LET tempo = tempo-1 
150 IF La t t. a = 0 THEN GO TO 190 
156 IF tempo =0 THEN BEEP .1,10: 
FOR n =27 TO fionda 5TEP -1: PRI 
NT RT 20,n;g$;" ”;RT 21,n;h$;" ” 

BEEP .1,50: BEEP .2,-50: BEEP 
.3,0: NEXT n: PRINT RT 21,0;"RHI 
II! ! ! ! ! ! I ! ! ! ! ! ": GO TO 1000 
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160 IF pi = 4 . HMD a$(pietra+34) =" 
D" THEN LET pn=pn+10: LET lattar 
latta-1: LET a$(pietra+34) =" " : 

BEEP a 003 , 4-0 : BEEP -003,59 
170 GO TO 80 

190 IF C O p > 0 THEN PRINT RT 4-, IN 
T cop;z$;RT 3,INT cop;y$ 

200 LET cop=cop-.5 

210 IF INT COP=0 THEN LET pn=pn 
-4-0. LET latta =8: GO TO 70 
220 IF pi =4- RND (pietra=INT cop 
OR pietra =INT cop+l) THEN LET p 
n=pn>100: LET te»pO=tei(ipo+150: B 
EEP -1,30 : BEEP .7,4-0: BEEP .5,5 
0: LET latta=8: CLS : PRUSE 5: G 
O TO 45 
300 GO TO 170 
1000 REM 

1003 REM richiesta altra 

1005 REM 

1010 INPUT "Vuoi giocare 
(s/n) " ; R $ 

1015 IF R$ =: " n ** OR R$ = "N“ 

OP 

1020 IF R*«"S" OR R*="S" 

5 : INPUT " Istruzioni? 

1030 IF s$=“s" OR S$="S" 

TO 9900 

1040 IF s*="n" OR S$="N” 

TO 15 

1050 CLS : GO TO 1020 
9000 FOR n =14-4 TO 161 
9010 FOR f =0 TO 7 
9020 RERD b: POKE USR CHR$ n + f , b 
NEXT f : NEXT n 

9030 DRTR -1,-1,128,128,128,120, 
128,-1,-1,-1,1,1,1,1,1,-1 
9040 DRTR -1,-1,-1,195,195,195,1 
95,195,195,195,195,195,195,-1,-1 
, -1 

9050 DRTR 0,195,195,246,246,189, 
189,153,153,153,153,129,195,102, 
60,0,129,195,102,60,0,0,0,0 
9060 DRTR 0,0,24,60,60,24,0,0 
9070 DRTR 1,1,3,7,15•15,15,27,19 
,51,35,35,99,67,-1,-1,128,128,19 
2,224,240,240,240,243,248,252,25 
2,252,254,254,-1,-1 

9080 DRTR 0,0,0,0,0,0,15,63,0,0, 
0,15,28,124,-1,-1,0,0,O.O,0,12,6 
2,254,127,-1,-1,63,15,0,0,0,-!,- 
1 , -1 , -1,252,0,0,0, -1, -1, -1,31,31 
,0,0,0 
9890 REM 

9900 rem istruzioni 

9901 REM 

9905 _PRUSE 150: CLS : PRIN T RT 0 

9910 PRINT Scopo dei yioco 

e' riuscire a far cadere dal inur 
etto del giar-dino tutti i barat 
toli prilla chearrivi la CRRR zia 
tta con la suaciabatta 'castiga* 
atti'! I comandi sono: 

- 6 = sinistra 

- 7 = destra 

- 0 = lancio" 

9920 PRINT RT 21,0; FLRSH 1;"PRE 
MI UN TRSTO PER CONTINUARE": PRU 
SE 0: BEEP 1,10: BEEP .5,-30: CL 
S 

9921 PRINT "Puoi lanciare una pi 
etra solo seia fionda appare cos 
i ' ; E 

F. Eliminata una fila 

di barattolihai la possibilità' 
di aumentareii tempo a tua dispo 
sizione col-pendo l'elmetto del 
poliziotto prima che questo rag 
giunga l'al-tra parte del muro, 
altrimenti perdi 40 punti!!" 

9922 PRINT '" Se abbattuti tutti 
i barattoli l'elmetto non appar 

e, vuol dire che c'e' una lattin 
a invisibile sul muro che devi t 
rovare. Buon divertimento e 

.. OCCHIO RLLR ZIA!" 

9925 PRINT RT 21,©; FLASH 1;"PRE 
MI UN TRSTO PER CONTINUARE": PRU 
SE 0: BEEP 1,10: BEEP .5,30: CLS 

9999 GO TO 15 


partita 
an con? 

THEN ST 

THEN CL 

( s sn > " ; s 

THEN GO 
THEN GO 
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Vie 20 




SH: IH u: 


Totovic 

Un programma con espansione da 16 KBytes per il VIC. 

Calcola e stampa sullo schermo le possibilità ai vincita, il costo e lo sviluppo completo di un sistema ridot¬ 
to con numero variabile di triple, doppie e fisse per il gioco del totocalcio. 

Per motivi legati alle dimensioni dello schermo, si deve intendere il segno di percentuale (%) moltiplicato 
per dieci. 

La variabile L contenuta nella riga 120 indica il costo di ogni singola colonna. 

Il programma è piuttosto lungo, vi consigliamo di digitarlo per blocchi e considerato VOUTPUT piuttosto 
complesso, consigliamo a chi fosse provvisto di stampante, di aggiungere una routine che copi dallo 
schermo le schedine. 

Altre istruzioni sono comprese direttamente nel programma. 

Ricordiamo a chi fosse in possesso di espansioni di capacità inferiore, che il programma gira lo stesso, a 
patto di non esagerare con il numero di triple e doppie. 

Al di sotto di certi limiti è di prassi il fatidico OUT OFMEMOR Y ERROR. 

Vi auguriamo buona fortuna e se vincete ricordatevi di LIST. 


100 

110 

120 

130 

140 

150 

170 

130 

190 

200 

210 

220 

280 

290 

295 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

525 

526 
550 
560 


FRINT"3" : CLR 
P0KE36879,110 
L=350 

DIMPP$a3) ,P$< 13,32) , D* <2, 13) , R$< 13) , X$<13), V(13) 
F0RK= 1TO10 ; D <K ) = 1 :T<K ) = 1 : NEXT 
X$= " 

F0RK=1TO13 : yt (K)=LEFT$<X$,K+4)■NEXTK 
FRI NT" aia 


FRINT"3 ? 
FRINT"3 ■ 
FRINT"a ■ 
FRINT"3 
FRI NT 
REM * 

FRI NT 
FRI NT 


TOTOCALCIO 


mmaaam premi un tasto gosub 1500 

DATI * 

2E":P0KE36879,25 
BATTI IL PRONOSTICO :" 

GOSUB1480 

FRINT : FORK=1TO13 

IFK<1OTHENPRINT" "; 

PRINTK"" INCONTRO =" ; •* INPUTR$<K) 

V < K > =LEN < Rt (. K ) ) : IFV<K ) >3THENFR I NT " 1 
FORJ= 1 TOV <K ) • E < J) =ASC < MI li* < RT < K ) .■ J, 1 ) ) 

IFE < J )049ANDE < J ) O50ANDE C J ) O88THENPRI NT " 1 
NEXT 


.T :GOTO330 


.1" = GOTO330 


IFEC1)=E(2)THENPRINT" 1 
IFV <K)=3ANBE<2)=E C3)THENPRINT"H 
IFE <1)=E< 3)THENPRINT"H 
E<1)=0 : E<2)=0 : E<3)=0 
IFV< K) = 1THENF=F+1 
IFV< K)=2THENB=B+1 
IFV(K)=3THENT=T+1 

IFK=30RK=60RK=3THENPRINT"- 

NEXT:GOSUB 1480 
FRINT"MCI SONO"T"TRIRLE, 

FRINTF"FISSE." 

PRINT"MM FREMI UN TASTO":GOSUB1500 
REM * ANALISI * 

SC=INT <3 tT*2tD):PRINT" ^_0 SV 
FRINT"RICHIEDEREBBE"SC 
FRINT"COLONNE,PARI A £"SC*L 
IFT=0ANDDC7THEN1530 
IFT=0THENSR=INT(16*2T<D-7)) 


H" :GOTO330 

H" ^GOTO330 
H" :GOTO330 


PRINTD"DOPPIE E"; 


COMPLETO" 


BH 


















570 IFT=1ANDD-C7THEN1530 

580 IFT=1THENSR=INT < 48*21<D-7)> 

598 IFT=2ANDD<7THEN1530 

600 IFT=2THENSR=INT <144*2 f<D-7 )) 

610 IFT=3THENSR=INT < 5*2 TD) 

620 IFT>3THENSR=INT < 3 TCT-2)*2 TD) 

625„PRINT"PREMI UH TASTO":OOSUB1500 
630 PRINT'TIIL SISTEMA RIDOTTO" 

635 PRINT"E ' DI"SR"COLONNE," 

640 PEINT"PARI AD UNA SPESA DI" 

645 PEINTSE*L"£." 

650 GOSUB1480 : PRINT"IL RAPPORTO DI RIDUZIONE E'" 

680 PRINT"M"INT<SC/SR+.5 > 

690 PRINT"MCON UN RISPARMIO DI" 

695 PRINT (. SC/SR>*L"£ E LA" 

700 PRINT"SPROBABILITA"■ DI REALIZZARE" 

705 PRINT"UN 12 E FORSE" 

710 PRINT" < " INT( 1 /1NT<SC/SR+. 5>* 1000+. 1/10) " V.') ANCHE UN 13" 

720 PRI NT "«ADESSO TI DARÒ' - LO SVILUPPO COMPLETO" 

730 PRINT 

740 PRINT"M PREMI UN TASTO":GOSUB1500 
760 REM «ELABORAZIONE * 

770 PRINT'M" 

780 IFD>0THENGOSUB1600 
790 IFT>2THENVV=1 
800 FORC=1TOSR : P$="" 

810 FORBITO 13 

820 IFV< J) = 1 THENPP* ( J > =R$ < J > : GOTO 1410 

830 IFV<J)=2ANDTC3THEN880 

840 IFV ( J ) =2THEN 1030 

850 IFTC3THEN1290 

860 IFT=3THEN1160 

870 GOTO1220 

880 REM * 7 DOPPIE * 

890 IFVV=1THEN1030 

900 ND=ND+1^IFND>7THENDD=ND-7: GOTO1050 
910 IFND=1THENREADD$ 

920 IFLEN < D$ ) 07THEN910 
930 Q$=MID$<D$,ND,1> 

940 I FD*< 1, J > = " 1 " ANDD* < 2, J ) = " X " THENPP* < J > =Q$ : GOTO 1410 

950 IFD$<1,J > = "X"ANDD*<2,J) = "1"THENF'P*<J> =Q$: GOTO1410 

960 I FD* < 1, J > = " 2 " ANDD* < 2, J > = " 1 " ANDQ*= " 1 " THENF'P* < .J > =Q* ■ GOTO 1410 

970 I FD* < 1 .■ J > = " 1 " ANDD* < 2, J ) = " 2 " ANDQ*= " 1 " THENF'P* < J > =G* ■ GOTO 1410 

980 IFD*<1,J> = "2"ANDD*<2, J) = " 1"ANDÒ*-"X"THENF'P*<J) = "2" : GOTO1410 

990 I FD*<1,J > = "1 " ANDD* < 2, J > = " 2 " ANDQ*= " X " THENF'P* < J > = " 2 " : GOTO 1410 

1000 IFD* <1, J ) = 1 "X" ANDD*( 2, J > = " 2 " ANDQ*=" 1 " THENF'P* < J > = " 2 " : UU T U 1410 

1010 I Fili (. 1 j J > = " 2 " ANDD* < 2 > J ) = " X " ANDQ*= " 1 " THENF'P* < .J > = " 2 " : GOTO 1410 

1020 F'F‘*< J)=Q* : GOTO 1410 

1030 REM «DOPPIE INTEG. * 

1040 DD=DD+1 

1050 IFVV=0THENDM=INT <16*3 TT >: GOTO1080 
1060 IFT=3THENBM=5 •' GOTO 1080 
1070 DM=INT <31<T-2 > > 

1080 D < 0)=D < O > +1 

1090 IFD <0 ><=DM*<D-7 >ANDVV-0THEN1150 
1100 IFD < 0)<=DM*DANDVV=1THEN1150 
1110 D(0)=i:iKl)=D(l)+l 
1120 FORW=1TO10 

1130 IFD <W)>2THEND< WJ = 1=D(W+1> =D<M+1 ) +1 
1140 NEXTW 

1150 PP* <J)=D*<D<DD>,J > ^ GOTO1410 
1160 REM * 3 TRIPLE * 

1170 NT=NT+1 






% 
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iS :::£K: 
‘ ÌH 

|h •sa¬ 



li 80 IFHT=1THENREfìDT $ 

1190 IFLEN <T$ ") >3THENRESTORE : GOTO 1180 
1200 QQ$=MID$<T$,NT,1) 

1210 PP$<J> =QQ$■ GOTO1410 
1220 REM * 4 TRIPLE * 

1230 NT*NT+1 : IFNT>4THENTT=MT-4: GOTO1310 
1240 IFNT=1THENREfìDT $ 

1250 I FLEN <T$K4THEN 1240 
1260 IFLEN <T$ ) >4THENRESTORE : GOTO1240 
1270 Z$=MID*<T*,NT,1) 

1280 PP$ < J) =Z$ ■ GOTO1410 
1290 REM «TRIPLE INTEG.# 

1300 TT=TT+1 

1310 IFVV=0THEHTM=16 : GOTO1330 
1320 IFT>3THENTM=9 
1330 T<0)=T<0) + l 

1340 IFT(0 > <=TM*< T-4 >ANDT>3THEN1400 
1350 IFT <0> <=<TM*T)ANDTC3THEN1400 
1360 T(0) = LT(1)=T(1) + 1 
1370 FORWW=1TO10 

1380 IFT <WW> >3THENT<UN) = 1 : T <WW+1> =T <NW+1> +1 
1390 NEXTWW 
1400 PP$<J)=T$<T<TT)> 

1410 P$*P$+PP$<J> 

1420 NEXTJ 

1430 IFD^="XXXXXXX"THENRESTORE 
1440 ND=0:NT=0:DD=0:TT=0:GOSUB1640 
1450 IFC-SRTHENPRI NT '• PRI NT : END 
1460 NEXTC 
1470 END 

1480 FORK=1T021 :PR1NT"■"; :NEXTK : PRINT : RETURN 
1500 GETW$ •• I FW$= " " THEN1500 
1510 WefìSC<W$):RETURN 
1530 REM* ORLO. ELEM. « 



1540 F'RINT"HHDPDRLCOLO ELEMENTARE" 

1550 PRINT"«ADOPERARE UNA MENTE" 

1560 PRINT"«UMANA !" 

1570 PRINT"«BfcttKJC IAO! ! !" 

1590 END 

1600 REM * VETTORI * 

1610 FORK=1T013 : IFVCK) = 1ORV<K>=3THEN1630 

1620 L$( 1,K) =LEFT$ < R$ (IO, 1):D$<2,K)=RIGHT$(R$<K>,1> 

1630 NEXT:RETURN 
1640 REM#SCHERMO# 

1650 IFN=0ORN=8THENN=0:CV=CV+1 :GR=GR+1 : GOTO1680 
1660 N=N+1 : CC=CC+1 
1670 GOTO1710 

1680 IFCV>2THENCV=1 : CC=0 : PRINT"itì PREMI UN TASTO" : PRINT : GOSUB1500 : PRINT"!T 

1690 pr i nt " mmmmmmmmmr spc < ev#9-s ; " ztjr . ■■ gr " 

1700 GOTO1660 

1710 F0RR=1T013 

1720 P*<R, CC> =MID$<P$, R.. 1 > 

1730 PRINTX$ CR > SPC <N+CV*9-10 >P$<R,CC > 

1740 NEXT 


1750 RETURN 
1760 REM * DATA * 

1770 DATA"X21","21X", "2X2", " 

1780 DATA"X21X","21XX","12X2 
1790 DATA"1111111","1X11XX1","11X1X1X 
1800 DATA"11XXXX1","1XXX111","X111XXX 
1810 DATA"X11XX11","XX1X1X1","X1XX11X 


112'V'IXX 
","X122", 


,"1111","XXXI","2221","1X21" 

2 X12" 

,"1XX11XX","111X1XX","1X1XX1X" 
,"XXI11IX","X1X11X1","XXX1X11" 
,"XXXXXXX" 


REHDV. 
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Corse di basic 
V° Lezione. 


Continua anche in questo numero, la serie di lezioni dedicate al basic del SEGA. 

In questa lezione farete la conoscenza con una delle istruzioni più ricorrenti in tutti i programmi. L'istru¬ 
zione PRINT e tutte le altre istruzioni ad essa col legate. Particolare attenzione è da riservare alla parte 
del corso riguardante le istruzioni stringa. 





10 CLS : 2$=CHR$ C 34 3 

20 CURS0R3,0 :PRINT"LEONI INFORMATICA M 
ILANO":GOSUB860 

30 CURS0R9,3:PRINT "Istruzione di PRIN 

40 CURSOR0,6:PRINT "L’istruzione PRINT 
si usa per trasmet^" 

50 CURSOR0,7 :PRI NT "tere dati dal comp 
uter al uideo" 

60 CURSOR0,9 SPRINT "La sintassi di que 
sta I struzione e ’ :" 


70 CO=0 :RI = 13 :GOSUB950 
80 RI = 14 :GOSUB1000 

90 CURSOR0, 15 • PRI NT " num. a. linea P 
RINT output lis t" ; TAB C 36 3 ;" " 

100 RI = 16 : GOSUB1000 : PRINT" es. 10 PR 
I NT output l i st " ;TABC363 ":RI = 18:G0S 
UB1000 ^ RI = 19 -GOSUB960 
110 X$= INKEY$ 

120 IFX$=""THEN110 

130 CLS :CURSOR0, 1 :PRINT "L’output list 
può’ contenere :" :PRINT " 


81 































Sega SC 3000 



:: :: 


•SS. 

: 

:: :: 
Ohi II 



i 1 


140 CURSOR0,4:PRINT "numeri C 5.87 0. 

88 9 etc 3 

145 CURSOR0)6: PRINT "variabili C A DS 
$ FI etc. D 

150 CURSOR0,8:PRINT "espressioni C A+D 
✓TS F1*F2 etc. 3 

160 CURSOR0,10:PRINT "stringhe C " 

"NO" ;2$;" ";2$;"Dammi il nome" ;2$ ; " et 
c. 3" 

170 CURSOR0,12:PRINT "stringhe variabi 
l I C A$D1$ etc. 3" 

171 CO=0 :RI = 14:&OSUB950 

172 RI = 15 :GOSUB1000 

173 CURSOR0,16:PRINT " NOTA.";TABC363 

. M ii 

) 

174 RI=17:GOSUB1000:PRINT" Le stringh 
e variabili saranno" ;TABC363 ;" " 

175 PRINT" discusse piu’ avanti"JTABC 
363 J" " :R1=20:GOSUB1000 

177 RI=21:GOSUB960 
180 X$=INKEY$ 

190 IFX$=""THEN180 

200 CLS:CURSOR0,0:PRINT "Esempi di ist 
ruzioni di PRINT" 

210 CURSOR0, 2: PRINT "12 PRINT A,C":CUR 
SOR0,3:PRINT "13 PRINT " ;2$ ; "Sa lve 22" ; 
2 $ 

220 PRINT "5 PRINT" *2$ L"Tu hai 
;365*AJ";2$ ; "g i ornl" 

230 CURSOR0, 6 :PRINT "Quando sara» eseg 
uita l’istruzione 12j" 

240 CURSOR0,7 :PRINT "I valori memorizz 
at I nelle variabi lI":PRINT "A e C, sar 
anno visualizzati" 

250 CURSOR0,10:PRINT "Nell’istruzione 
13, verrà’ scritta" 

260 CURSOR0, 11 SPRINT "la parola Salve 
22 sullo schermo" 

261 CURSOR0, 13:PRINT "In generale, og 
ni carattere posto Ira" 

262 CURSOR0, 14:PRINT "le UIRGOLETTE, 
sara’ mostrato esatta-" 

263 CURSOR0, 15:PRINT "mente come appa 
re nell’istruzione." 

265 CURSOR0, 17-*PRINT "Nella linea 5, 
a seconda del valore me-" 

266 CURSOR0, 18:PRINT "morizzato nella 
variabile A, ci sara’" 

267 CURSOR0, 19:PRINT "un valore d i He 
rente visualizzato." 

268 CURSOR0, 20:PRINT "Se A=10 avremo 
sul video:" 

269 CURSOR0, 21:PRINT "Tu hai 3650 gio 
mi" 

270 X$=INKEY$ 

280 IFX$=""THEN270 


290 CLS :CURS0R5,0 :PRINT "Istruzione di 
PRINT segue" :PRINT " 

II 

291 CURSOR0,3:PRINT "In genere ogni es 

pressione aritmetica" * 

292 CURSOR0,4:PRINT "può’ essere usata 

in una frase di PRINT." 

300 CURSOR0,6 :PRINT "Le virgole C,3 e 
i punti e virgola C;3" 

310 CURSOR0,7 :PRINT "possono essere us 
ati per separare" 

320 CURSOR0,8 :PRINT "I contenuti delle 
frasi di PRINT." 

322 CURSOR0, 10 :PRINT "I caratteri sepa 
rati dalla virgola" 

323 CURSOR0,11 :PRINT "saranno spostati 
di a Icuni spazi." 

324 CURSOR0,12 :PRINT "Quelli separati 
dal punto e virgola," 

325 CURSOR0,13 :PRINT "invece, non sara 
nno spaziati." 

330 CURSOR0,15:PRINT "Per esempio,":CU 

RSOR0,17 :PRINT"10 PRINT2.2;-4 J";2*;"AB 
CD" ; "CIAO" ;2$ 

331 CURSOR0, 19 :PRINT "SARA’ UISUALI22A 
TO COSI:CURSOR0, 21 .'PRINT "2.2-4ABCD 
","CIAO" 

340 X$=INKEY$ 

350 IFX$=""THEN340 

360 CLS:CURSOR0,3:PRINT "Un punto e vi 
rgola come ultimo ca-" 

365 CURSOR0,4 :PRINT "rattere di una fr 
ase di pr int, evita" 

366 CURSOR0,5:PRINT "di mandare a capo 
il cursore." :PRINT "Si può’ cosi’ far 
scrivere" 

367 CURSOR0,7 :PRINT "diverse frasi di 
PRINT di fila." 

368 CURSOR0,9 :PRINT "10 PRINT " ;2$;"CI 
A02 E’ ora" ;2$ ; " ; " : PRINT "20 PRINT "\Z 
$ ; "di andare a scuo la" 

369 CURSOR0, 12 :PRINT'"verrà’ mostrato 
cosI’":CURSOR0,15:PRINT "CIA022 E’ ora 

di andare a scuola" 

380 X$=INKEY$ 

390 IFX$=""THEN380 

400 CLS:CURSOR10,0:PRINT"Funzione di T 
AB":GOSUB860 

410 CURSOR0,4:PRINT "Un altro modo di 
spaziare i contenuti" 

420 CURSOR0,5 :PRI NT "delle frasi di PR 
INT e’ la funzione" 

430 CURSORI5,7 :PRINT "TAB" 

440 CURSOR0,9 :PRINT "Ogni riga del vid 
eo e’ formata da 38" 

450 CURSOR0, 10 :PRINT "colonne, numerat 
e da 0 a 37." 





















*55 CURSOR0,12:PRINT "TABCX3 sposta il 
cursore nella " 

456 CURSOR0,13:PRINT "posizione X pr 
a di scrivere il" 

457 CURSOR0, 14 :PRINT "il carattere sue 
cesslyo : " 

459 CURSOR0,16 :PRINT "50 PRINT TABC33 ; 
";2$;"IL nio SC-3000"jz*j";TABC203 ;2 
$;"E’ un OTTino amico" 

460 CURSOR0,19:PRINT "dara’ 

470 CURSOR0,21:PRINT " IL MIO SC-300 
0 E’ UN OTTIMO AMICO" 

480 X$=INKEY$ 

490 IFX$=""THEN480 

500 CLS:CURSOR0,0:PRINT "Uno degli usi 
della funzione TAB" 

510 CURSOR0, 1 :PRINT "e» di fissare la 
spaziatura " 

520 CURSOR0,2 SPRINT "in base a valori 
che possono essere" 

522 CURSOR0,3:PRINT "anche variabili:" 
524 CURSOR0,5 :PRINT "55 PRINT TABCX3;" 
;2$;"CIAO"";TABCY3;";"CIAO" 

528 CURSOR0,7:PRINT "con X e Y variab i 
li) posizionerà’ " 

530 CURSOR0,8 :PRINT "le due scritte in 
base al va lore che" 

532 CURSOR0,9 SPRINT "assumeranno di vo 
Ita in voIta." 

533 CURSOR0, 11-'PRINT "Se X=10 e Y=30 s 
ul video avremo : " 

535 CURSOR0, 14 :PRINT TABC103J"CIAO";TA 
BC303 ; "CIAO" 

540 X$=INKEY$ 

550 IFX$=""THEN540 
560 GOTO630 

570 C.URSOR0,7 :&OSUB880 
580 2$=CHR$C343 

590 CURSOR0 ) 8 : PRINT "10 PRINT" ;2$ J M Ins 
erisci l’età’ in annl" 

600 CURSOR0,9:PRINT "20 INPUT A" 

610 CURSOR0, 10 :PRINT "30 PRINT";2$;"Ha 
i ";2$,-"365*A";"giorni";2$ 

620 CURSOR0, 11 :GOSUB880 :RETURN 

630 CLS :CURSOR15,0:PRI NT "ESERCÌ 210" :G 

OSUB880 

640 CURSOR0,4:PRINT "Se la frase di PR 
INT e’ " :CURSOR0,6:PRINT "20 PRINT TABC 
33 ;2$;"MICKEY";TABC153;";2$;"M0 

USE" :CURSOR0,9 :PRINT "cosa ci sara’ 

sullo schermo?" 

650 CURS0R5,11:PRINT "1 MICKEY 
MOUSE" :CURS0R5,13:PRINT "2 MICKEYMO 
USE" 

651 CURS0R9, 15 :PRINT "CI oppure 23 
670 A=0:CURSOR21,15 : INPUT A 


690 IFA=1 THEN780 

700 I FA=2THEN CURSOR0, 17 :PR I NT "Stai p 

iu’ attentoS" :CURSOR0,18:PRINT "Non ve 

di che ci sono due TAB di posi-":CURSO 

R0jl9:PRINT "zionamento nella frase?": 

GOTO750 

740 G0T0651 

750 X$=INKEY$ 

760 IFX$=""THEN750 

770 CURSOR0,17:GOSUB890:GOTO651 

780 CURSOR0, 17 .'PRINT "ESATT02 2 " :CURSOR 

0,18 :CURSOR0, 19:PRINT "Sembra che tu a 

bbia capito " :CURSOR0,20 :PRINT "anche 

questa parte, che non e’ certo" 

785 CURSOR0,21 :PRINT "molto semplice22 
Ora andiamo avanti 22" 

790 X$=INKEY$ 

800 IFX$=""THEN790 

810 CLS:CURSOR0, 5--PRINT "UUOI RIUEDERE 
IL PROGRMMA" 

820 CURSORI0,7 :PRINT "NO":CURS0R8,7 : IN 

PUT A$ : IFA$="SI"THEN10 

830 IFA$="N0" THEN 850 

840 GOTO810 

850 GOTO 900 

860 CURSOR0, 1 :F0R 1 = 1T038:PRINT "#"J :N 
EXT I :RETURN 

870 FOR 1 = 1TO700 :NEXT :RETURN 

880 FOR 1=1T038:PRINT "-"J:NEXT:RETURN 


890 FORI = 1T060 :PRINT" " ; :NEXT:RETURN 

900 CLS :2$=CHR$C343 : CURS0R3,4:PRINT " 
FINE LEZIONE 5" 

910 CURS0R3,7 .'PRINT "PER INSERIRE LA L 
EZIONE SEGUENTE" 

920 CURS0R3,9: PRINT "DIGITARE L’ISTRUZ 
IONE 


930 CURS0R3,11:PRINT "LOAD";Z$ l "LEZION 
E 6" ;Z$ 

940 CURS0R3,20:PRINT:END 
950 CURSORCO,RI:PRINT 1 
PRINT " "J :NEXT:PRINT 1 
960 CURSORCO,RI:PRINT ' 

PRINT " " J :NEXT :PRINT 1 
1000 CURSOR0,RI:PRINT 1 
RETURN 

1500 CURSORCO,RI:PRINT 
: PRINT " " ; :NEXT:PRINT 


; :F0RI = 1T035: 
:RETURN 
; :F0RI = 1T035: 
:RETURN 
;TABC363 J" " : 

"1 :FORI = 1T035 
":RETURN 
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MANUALE 



OUTLINE 



In questo numero verrà trattato un 
argomento che solleciterà la curio¬ 
sità di molti lettori: come modifica¬ 
re i normali caratteri della tastiera 
in altrettanti simboli fantasiosi e di¬ 
versi. 

Generalmente la parte grafica di 
un computer è suddivisa in molti 
piccoli blocchi, ognuno dei quali 
svolge una specifica funzione. 

Si possono distinguere due grossi 
blocchi che gestiscono la grafica. 

Il modo testo. Suddivide lo scher¬ 
mo video in un certo numero di co¬ 
lonne e righe, variabili da modello 
a modello, il cui incrocio identifica 
altrettante caselle a cui possono 
essere indirizzati i caratteri alfanu¬ 
merici da visualizzare. 

Prendendo ad esempio alcuni 
computer che spesso appaiono 
sulle nostre pagine, diamo alcuni 
dati interessanti. 


MOD 

colonne 

righe 

posizioni 

Vie 20 

22 

23 

506 

TI 99/4A 
SEGA SC 

32 

24 

768 

3000 

37 

23 

851 

CBM 64 

40 

25 

1000 


Con questo semplice schema è 
possibile sapere qual’è il massimo 
numero di caratteri visualizzabili 
sullo schermo. 

Ogni carattere è formato da una 
griglia o pattern di 8x8 punti vi¬ 
deo. 

In totale per ogni carattere sono 
presenti sullo shermo ben 64 pi- 
xels accesi o spenti. 


L’Alta risoluzione. Gestisce la vi¬ 
sualizzazione dello schermo pixel 
per pixel singolarmente. In tale 
modo è possibile visualizzare con 


grande precisione disegni e grafi¬ 
ci. 

Segueno lo schema precedente 
avremo dei nuovi dati. 



CARATTERE 


l'iaiirn I 


0 

0 

O 

A 

A 

0 

0 

O 

0 

0 

A 

O 

O 

i 

0 

O 

0 

A 

O 

O 

0 

0 

A 

0 

0 

A 

A 

A 

-1 

i 

1 

0 

0 

A 

O 

0 

0 

0 

A 

0 

0 

A 

0 

0 

0 

0 

A 

0 

0 

A 

0 

O 

0 

0 

A 

0 

0 

O 

0 

0 

0 

0 

O 

0 


RAPPRESENTAZIONE 

BINARIA 



SO 































































































MOD. 

asse X 

asse Y 

pixels 

VIC 20 

175 

160 

28000 

TI 99/4A 
SEGA SC 

256 

192 

30152 

3000 

256 

192 

30152 

CBM 64 

320 

200 

64000 


Ogni linea corrisponde ad un byte, 
per cui se convertiamo il contenu¬ 
to da binario in decimale, avremo 
in realtà il contenuto equivalente di 
8 bits che formano il byte corri¬ 
spondente ad una determinata lo- 


MANUALE 


Osserverete forse una piccola cu¬ 
riosità nei dati riferiti al TI 99/4A ed 
al SEGA SO 3000, che sebbene ab¬ 
biano la medesima alta risoluzio¬ 
ne, il loro modo testo è diverso. 
DECODIFICA e CODIFICA. 
Spiegato per sommi capi come vie¬ 
ne gestito lo schermo da un com¬ 
puter, viene spontaneo chiedersi 
come vengono conservate in me¬ 
moria le forme dei vari caratteri e 
visualizzate poi sullo schermo. 

Se facciamo riferimento ai VIC 20 
Commodore, esistono delle parti¬ 
colari locazioni di memoria che 
presiedono a queste operazioni. 
36869 Indirizzo di inizio della 
mappa dei caratteri. 

32768 Generatore di caratteri 

33791 Maiuscoli e grafici. 

33792 Generatore di caratteri 

33815 Maiuscoli e grafici in 
negativo. 

33816 Generatore di caratteri 
35839 Maiuscoli e minuscoli. 


Non è un'operazione particolar¬ 
mente complessa, ma necessita di 
alcune piccole cautele per tutelar¬ 
si da inutili perdite di tempo. 
Quando si creano nuovi caratteri, 
la codifica deve essere conservata 
in qualche angolo della memoria al 
sicuro da inopportune manomis¬ 
sioni. 

Il metodo più semplice è quello da 
destinare nell’area di memoria 
normalmente riservata ai pro¬ 
grammi basic, uno spazio che non 
venga “sporcato” dall'elaboratore 
nello svolgimento dei programmi. 
Nel VIC esistono 4 locazioni di me¬ 
moria che indicano l’inizio e la fine 
della memoria RAM destinata ai 
programmi. 

43-44 Puntatore di inizio per il Ba¬ 
sic. La locazione 43 contiene il by¬ 
te basso e la 44 quello più alto. Per 
conoscere l’indirizzo di partenza 
del Basic si può usare la formula: 

PRINT PEEK (43)-256xPEEK (44) 

55-56 Puntatore di limite massimo 
di memoria disponibile. Anche qui 
si usa la formula: 


cazione. 

Vedi fig. 2. 

Non è difficile costruire i caratteri, 
utilizzando la griglia e convertendo 
il codice di ogni linea in codice de¬ 
cimale. 

Fatto ciò, non rimane che contare 
quanti caratteri occorrono e deter¬ 
minare a quanti bytes corrispondo¬ 
no, quindi riservare in memoria lo 
spazio occorrente. 

Il procedimento per fare ciò è mol¬ 
to semplice. 

Supposto che si vogliano creare 
18 caratteri, considerando 8 bytes 
per carattere, dovremo riservare 
8 x 18 = 144 bytes da destinare ai 
soli caratteri. 

In condizioni normali il top della 
memoria RAM non espansa è alla 
locazione 7680. Se ne deduce che 
7680-144 ~ 7536 sarà il nuovo limi¬ 
te massimo di memoria. 

Per alterare il top non è difficile 
cambiare il contenuto delle loca¬ 
zioni 55 e 56 con delle opportune 
istruzioni POKE. 

Il procedimento da usare è il se¬ 
guente: 


35840 Generatore di caratteri 
36863 Maiuscoli e minuscoli in 
negativo. 

Modificando il valore contenuto 
nella locazione 36869, è possibile 
escludere il normale set di caratte¬ 
ri e nel contempo modificare il pun¬ 
tatore, che decodifica i dati conte¬ 
nuti tra le locazioni 32768 e 36863, 
costringendolo a leggere da una 
locazione da noi prescelta per im¬ 
magazzinare i nuovi caratteri. 


PRINT PEEK (55) + 256xPEEX (56) 

Modificando i valori contenuti nelle 
due locazioni si altera il limite di 
memoria riservando cosi lo spazio 
per i caratteri. 

Facendo riferimento alla fig. 1 si 
comprende come il computer vede 
in codice binario ogni linea che 
compone la griglia del carattere. 
Ad ogni 1 corrisponde un pixel ac¬ 
ceso, ad ogni 0 un pixel spento. 


PRINT INT (7536/256) Il risultato 
corrisponde al contenuto della lo¬ 
cazione 56, e, per la cronaca, in 
questo caso il risultato è 29. 

29x256 = 7424 

PRINT INT (7536-7424) Il risultato 
corrisponde al contenuto della lo¬ 
cazione 55, il risultato è 112. 

A riprova di quanto fatto fin qui, ba¬ 
sterà eseguire un piccolo calcolo 
che corrisponde alla più generica 
formula: 
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PEEK(55) + 256xPEEK(56)ecioè 
112+ 256x29 = ...7536. 

Terminate le spiegazioni teoriche, 
segue un programma pratico che 
vi aiuterà a capire i concètti 
espressi. 


10 PR T NT 11 r:a*' f- ùKE 36879,8 
*10 P0KE55 252 P0KE56 • 27 
410 DRr h j£6.195,189,251,22,28,2©,28 
420 BRT R195, 189, 102,94,94,102,189,195 
430 BRIH126,129,189,189,129,189,165,231 
440 BRTR254,131,189,131,189,189,129,254 
450 BRTR254,131,139,167,167,189,195,126 
460 BRTR252,134,137,165,165.187,134,252 
470 BRTR126,195,189•135,191,139,195,126 
430 BRTR255,129,191,130,190,160,160,224 
490 BRTR126,195,189,191,177,189,195,126 
500 DRTR231,165,189,129,139,165,165,231 
510 BR1R127,65,119,20,20,119,65,127 
520 BRTA7,5,5,229, 165,189, 195 ■ 126.' 

530 BRTR238,186,132,140,182,187,173,231 
540 BRTR224,160,160. ] 60,160,191,129, 255 
550 BRTR231,189,153,165,189,165,165,231 
560 HRTR231,181,157,173,181,185,173,231 
570 BRTR126,129,139,165,165,189,129,126 
580 BRIR254,131,189,189,131,190.160,224 
590 BRTR126,195,189,189,173,181,195,126 
600 BRTR254,131,189.1.89, 129 • 187, 173,231 
610 BRTR126,194,190.195.253,189,195,126 
620 BRIR255,129,239,40.40,40,40,56 
630 BRTR231,165,165,165,165,189,129,126 
640 BRTR231,165,165,165,189,219,102,60 
650 BRTR231, 165, 165, 165, 189, 165, 2-19, 126 
660 BRTR231,189,219,102,102,219,189.231 
670 BRTR 199,109,187,214' .108, 40.40,56 
680 BRTR255,129,251,54.108•223•129,255 
690 BRTR31,17,23,20,20,23,17.31 
70O BRTR62,99,221,135,220,223,129,255 
710 BRTR248,136,232,40,40,232,136,248 
720 BRIR56,108,198,170.238,40,40,56 
730 BRTR0,0.0,126,66,126,0,0 
740 BRTR0.0,0•0,0,0•0■0 
750 BRTR56,40,40,40.40,56,40,56 
760 BRTR126,90,90,126,,,.0 
770 BRTR126,219,129.219,219,129,219,126 
780 BRTR28,119,65,87,65,117,65,119 
790 BRTR247,157,155,246,111,217,185•239 
800 BRTR56,108,84,111'.'213,187.197.127 
810 BRTR28,52,44,56,,,,0 
820 BRTR14,26,22,20,20•22,26,14 
830 BRTR112,88,104,40,40,104,88,112 


Il programma abilita un nuovo set 
di caratteri definito OUTLINE, ma 
conserva il normale set di caratteri 
facilmente richiamabili usando il 
modo inverso (CTRL e 9). 


840 BRTR,62,42,119,65.119,42,62 

850 BRTR,28,20,119,65,119, 20,28 

860 BRTR,,,28,20,52,44.56 

870 BRTR,,,127.65,127,,0 

880 BRTR,,,,60,36,36,60 

890 BRTR,7,13,27,54,108,88,112 

900 BRTR126,195,185,181,173,157,195,126 

910 BRTR60.100,84,116,20,119,65,127 

920 BRTR126,195,189,253,195,191,129,255 

930 BhTR126,195,189,243.253,189,195,126 

940 BHTR28,52,100,212,183,129,247,28 

950 BRTR255,129,191,195,253,189,195,126 

960 BRTR126,194,190,131,189,189,195-126 

970 BRTR2 C *5,129, 253, 27,54,44,40, 56 

980 BRTR126,195,189•195,189,189.195,1^6 

990 BRTR 126, 195,189189, 193,125,67.126 

1000 BRTR0•56.40,56,56,40,56,0 

1010 BRTR0,56,40,56,40,104,88,112 

1020 DRTR0,14,26,54,44,54,26,14 

1030 BRTR0.0,127,65,127,65,127,0 

1040 1 iRTR0,56,44,54,26,54,44,56 

2000 FORM-7160TG7664:RERBR POKEM,R NEXTM 

2010 P0KE36869,255 


STRUTTURA DEL PROGRRnflR 


10 

20 

410 

2000 

2010 


Pulizia schermo e cambio 
di colore del fondo e del 
c ar at t e re . 

Altera il TOP della memo- 
ria RAH d i spon ibi le. 

1040 Blocco di DATA contenenti 
i nuoui caratteri. 
Allocazione dei nuovi 
caratteri. 

Modifica del contenuto 
della locazione del pun¬ 
tatore . 
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DIAGNOSI DEL JOYSTICK CBM 64 


Con il breve programma proposto 
intendiamo fornire ai possessori 
del CBM 64 uno strumento molto 
semplice per verificare la perfetta 
funzionalità del proprio joystick 
sfruttando il software. 

Prima di esaminare in dettaglio il 
programma è comunque utile un 
breve cenno al modo come il CBM 
64 comunica con il “mondo ester¬ 
no" ed in particolare con il joystick 
stesso. 

Il joystick, noto soprattutto agli ap¬ 
passionati di videogiochi, è un di¬ 
spositivo che, nel caso più sempli¬ 
ce e diffuso, è costutuito da quat¬ 
tro interruttori disposti ortogonal¬ 
mente, più uno, usato per il coman¬ 
do FIRE. 

Questi interruttori vengono aperti 
e chiusi'manovrando una leva o 
premendo un pulsante; i segnali 
elettrici cosi generati vengono 
usati per comunicare al computer 
informazioni elementari quali “in 
alto", “in basso", “a destra", “a 
sinistra", “fuoco". 

Tali informazioni non riguardano 
però l’entità o durata dello sposta¬ 
mento dato che ogni interruttore 
può essere solo “chiuso" o “aper¬ 
to”. 

li joystick viene collegato al CBM 
64 tramite una delle due CON¬ 
TROL PORTS: il diagramma a bloc¬ 
chi riportato nella fig. 1 mostra co¬ 
me l’inserimento del cavo di con- 
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REM# 

REM# 

REM# 

REM# 

REM# 

REM# # 

REM###*############# 

REM INTESTAZIONE E STAMPA MENU ' 

PRI NT "71" : POKE53280,0 : P0KE5328J , 0 
T$=" W*ÌWÌB*l:ffit AGHOS I DEL .TOVSTICKfi" 

PT = " muw immuMiii-w— imw— i————— 


PRINTT $■PRINTRT 

PRINT"NsWPER VERIFICARE LA «CONTROL PORT 1' 
FRINT"PREMERE SCI]»" 

PRINT M :?M*FEP VERIFICARE LA «CONTROL PORT 2! 
PRI NT "PREMERE 

PRINT"MSMPF.R AVFPF LO TABELLA DEI VALORI" 
OTTIMALI PREMFRE «ET] fi" 

MSMPER TERMINARE PREMERE «ESPAZI03fi" 
IFA$=""THEN30 
T"THEN1000 
"THENEND 


FRI NT 
PRI NT 
GETA$ 


80 

82 IFAT=" 
IFR$=" 


85 

86 : 

87 REM###PREIJISF’OSIZIOHE LOCAZIONE DI 

88 . REM**#MENORIA DA ESAMIHAPF*** 

pQ f 

90 A=VAI m : TEA '"'-1ANDAO2THFN80 
100 M=56322-A 

107 : 

108 RFM###ESAME CONTENUTO DEL BVTE*** 

109 : 

110 PR I NT " Zltfl" ; T$ : PR I NTR$ 

120 PRI NT :PRINT" «CONTENUTO LOCAZIONE DI 

PRI NT-PRI NT" r- 

PRINT"I I" 

PRINT" L - J " 

PR I NT " :?M(!MpMpFER T NTERROMPEPE E VER IFI CARE L 'ALTRO " 


MEMORIA : fi" 


PR I NT " JOVST T CK . PREMERE rJL' F 11 fi" 
PR I NT " T AB < 1 > PEEK C M > 

IFPEEK < 197 > =4THENRIJN 
GOT 0180 


130 
140 
150 
160 
170 
180 
200 
210 

997 : 

998 REM###STRMPA TABELLA VALORI#*# 

999 : 

1 000 pr i nt" n*r ;tt:printr$ 

1005 PRINTSPC<8>"TABELLA VALORI OTTIMALI" 

1010 PRINT"mai271"TAB< 27 >"a255"" 

1020 FRINT : FRINT126 :" ALTO "TAB<26>254 

1030 PRI NT 110; " AL. T O+FUOCO " T AB < 26 > 238 

1040 FRINT118; " ALTO+DESTRA"TAB<26 •'246 

1050 PR I NT 102 : " ALTO+DESTRA -i FUOCO " TAB < 26 >230 

1060 PRINT119;" DESTRA"TAB <26 >247 

1070 FRI NT 103; " DESTRA'i FI.JOCO"TABC26>231 

1080 PRINT 117." DESTRA+BASSO"TAB <26 >245 

1090 PRINT101 ;" DESTRA+BASSO+FUOCO"TAB <26 >229 

1100 PRINT 125;" BASSO"TAB <26> 253 

1110 PR I NT 109 ; "* BASSO+FUOrO"TAB<26237 

I 1 20 PR I NT 121; " BASSO+S T NI ATRA " TAB< 26"• 249 

II 30 PR I NT 105» BASSO+S T NI STRA+Fl. IOCO " TAB < 26 > 233 
1140 PRINT 123;" SINISTRA"TAB <26 >251 

1150 PRINT107;" SINISTRA+FUOCO"TAB<26>235 
1160 PR I NT 122 ; " SINISTRA+RL TO " TOT < 26 > 250- 
1170 PR I NT 106" SINI STRA+RL TO * F ' iQCO " TAB < 26 > 234 
1175 FRI NT" PER PROSEGUIRE PREMI «Il . 

1180 GETAf ^ I FTl$=" " THEN1180 
1190 RUN 



nessione del joystick in una delle 
CONTROL PORTS mette in contat¬ 
to l’accessorio con i due INTE¬ 
GRATI, identificati dalla sigla CIA 
(COMPLEX INTERFACE ADAP- 
TOR) e dal numero 6526. 

Questi CHIPS sono appunto i di¬ 
spositivi che collegano il “mondo 
esterno” (joystick, penna ottica 
eco.) con il microprocessore 6510, 
vero "cuore” del computer. 

I CIA ricevono dunque i segnali in 
INPUT generati dal joystick e li co¬ 
municano al 6510; è possibile quin¬ 
di assegnare a specifiche locazio¬ 
ni della memoria centrale, dei valo¬ 
ri che potranno essere letti o scritti 
nuovamente mediante le istruzioni 
BASIC ‘PEEK’ e ‘POKE’. 

Le locazioni di memoria per le due 
CONTROL PORTS sono la 56320 e 
la 56321 (nella fig. 2 sono schema¬ 
tizzati i contenuti in bit). Ogni volta 
che l’interruttore del joystick è 
aperto il segnale inviato equivale a 
1, a 0 quando è chiuso. 

Sorvolando sui dettagli dell’alge¬ 
bra Booleana e del calcolo binario, 
è sufficiente sapere che il contenu¬ 
to della locazione in esame dimi¬ 
nuisce del valore corrispondente 
all’interruttore chiuso. Un esem¬ 
pio; con il joystick inattivo il conte¬ 
nuto della locazione 56320 ha va¬ 
lore 127. Se la leva viene spostata 
a destra e contemporaneamente 
viene premuto il pulsante ‘FIRE’ il 
valore è 103; infatti 127 (joystick 
inattivo) - 8 (spostamento a destra) 
-16(fuoco) = 103-vedi fig. 2. 

II programma proposto permette, 
per l’appunto, di verificare ed evi¬ 
denziare sullo schermo che ad 
ogni posizione del joystick corri¬ 
sponde una variazione del conte¬ 
nuto dei registri di controllo delle 
CONTROL PORTS; joystick e CON¬ 
TROL PORTS saranno perfetta¬ 
mente efficienti se saranno verifi¬ 
cate le relative variazioni. 

Altre istruzioni sono contenute co¬ 
me REM nel listato e vengono ri¬ 
portate sul video durante la fase 
esecutiva della diagnosi. 
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Vi prego di mettere in corso un ab¬ 
bonamento a 6 numeri della rivista 



— L. 30.000 (Italia) 

— L. 60.000 (estero) 

Forma di pagamento 

□ unito alla presente in contanti 

□ assegno n. 

Banca . 

□ versamento c.c.p. n. 72609001 
intestato a «LIST - programmi 
per il tuo home computer» 

Desidero ricevere la rivista 

□ a casa □ fermoposta 


cognome 


via 


città 


ca P- età 


posseggo un home computer 


tipo: 

N.B. - Conservare II tagliando ricevuta del c.c.p.: esso costituisce docu¬ 
mento idoneo e sufficiente ad ogni effetto contabile in quanto l'IVA sui 
periodici è assolta dall'editore. ■ Non si rilasciano fatture 



ER ABBONARTI 


PER ISCRIVERTI AL LIST CLUB 


Vi prego di accettare la mia iscrizio¬ 
ne al LIST-CLUB e di inviarmi tesse¬ 
ra e adesivo. 

□ ho pagato L. 20.000 

□ ho pagato L. 10.000 perché 
abbonato alla rivista 

Forma di pagamento 

□ unito alla presente in contanti 

□ assegno n. 

Banca . 

□ versamento c.c.p. n. 72609001 
intestato a «LIST - programmi 
per il tuo home computer» 




Il sottoscritto_ 

chiede di partecipare al concorso STRIKE, indetto dal¬ 
la rivista «LIST-programmi per il tuo home-computer», 
inviando un programma inedito da me elaborato, 
avente per titolo_ 

destinato al computer (modello)-. 

In allegato invio il programma registrato su_. 

Con la presente dichiaro di assumermi ogni responsa¬ 
bilità in merito alla originalità dell'elaborato e di cede¬ 
re ogni diritto di utilizzazione e di riproduzione alla 
EDICOMP s.r.l. 

Firma_ 




nome 


cognome 


via 


città 


cap. età 


posseggo un home computer 


tipo: 


nome 


cognome 


via 


città 


ca P- età 


posseggo un home computer 


tipo: 


I I 





I I 















































Inserire in busta chiusa 


Spett. LIST 

programmi per il tuo home computer 

Casella Postale 4092 
00182 ROMA APPIO 


Inserire in busta chiusa 

Spett. LIST 

programmi per il tuo home computer 

Casella Postale 4092 
00182 ROMA APPIO 


Inserire in busta chiusa 

Spett. LIST 

programmi per il tuo home computer 

Casella Postale 4092 
00182 ROMA APPIO 



UN ANNO DI SUCCESSI 


r 


\ 




LIST ringrazia i suoi lettori 


per il successo e la continuità che gli 
hanno garantito nel 1984: 300.000 
copie diffuse! 

Dall’alto di questa solidità dimostrata 
LISI è ora in grado di annunciare una 

nuova e più ricca serie MENSILE 
per il 1985. 

Arrivederci in edicola. 









































































